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ABSTRACT 



Algorithms definel as recursive functions, such as 
in ''pure" LISP, are shovfn to have structure sufficient 
to distinguish between processes which must be 
executed in sequence and processes which may be 
executed in parallel. 

An interpreter program is presented for executing 
LISP programs and simultaneously computing the number 
of processors needed at each step of program execution 
in order to achieve optimum parallel processing. 
Sample program runs are presented to show speed-up 
ratios between strictly sequential and optimally 
parallel executions. 

A possible hardware organization for a parallel 
processing system derived from the interpreter program 
is presented. 
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I. 



INTRODUCTION 



Both the growing volume of business data processing and 
the increasing complexity of problems emerging from 
scientific and military research are demanding greater 
efficiency! from computer systems. The efficiency 
attainable from the latest versions of traditional, 
sequential machines appears to be approaching limits set by 
the final speed of electromagnetic wave propagation, while 
more cosrly, non-traditional, parallel machines have been 
encumbered by software complexities. 

Because much of the processing done by sequential 
machines consists of independent sub-processes, it has long 
been recognized that efficiency could be improved if these 
independent sub-processes could be performed simultaneously. 
Considerable progress has been made in this area by building 
more sophisticated systems from basic Von Neumann machines. 
Multiprocessor systems enable multiple processors to share a 
common core memory while simultaneoulsy processing 
independent programs. A distributed system represents a 
network of computers, each with its own memory, working 
together on independent (or nearly independent) programs in 
order to solve a common problem. 

But individual programs themselves may contain 
independent segments which could be executed in parallel. 
Machines which have been designed to perform parallel 
executions of single programs represent significant 



! As used herein, efficiency means a measure of 
throughput or execution speed. 
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departures in organization from conventional machines. 
Thurber and Wald [Ref. 1] provide a survey of parallel 
processors and their organizations. 

There is a reason for the unconventional architectures 
of parallel processors. Single programs may be thought of 
as mathematical functions which map a single input data set 
to a single output data set. This means that the results of 
parallel computations must eventually be brought together to 
produce the final output. Hence, the actions of the 
components of a parallel processor must be more tightly 
coordinated than in a multiprocessor or distributed system. 

There are several reasons why parallel machines have not 
achieved widespread use. Certainly one reason is rhat many 
users remain satisfied with sequential machines as long as 
they continue to meet their efficiency requirements. 
Another reason is that the parallel machines developed so 
far require an additional degree of software complexity in 
order to distinguish between parallel and sequential tasks. 
Hardware cost is another reason. In the past, the cost of 
logic elements was much greater than the cost of memory 
elements. Memories were designed to be accessed through a 
single port. These factors were in line with the Von 
Neumann principles of sequential, centralized control of 
computations and linearly organized memory. 

But now, advances in technology are making it possible 
to define a new set of principles for computer design. 
Glushkov, et. al. , [Ref. 2] present a set of five 
principles, quite different from the Von Neumann principles, 
for the design of what they call recursive machines. The 
advances already made by LSI technology make the 
possibilities seem endless. Manufacturers are currently 
producing single-chip computers (memory and CPU on one 
chip) . It is not inconceivable to imagine an array of 
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bipolar processors on a single chip. Memory technologies 
are improving too, making it possible to access data faster 
and in parallel. 



A. DEVELOPING A PARALLEL SYSTEM 



In the past the development of parallel processor 
systems has been characterized by the development of the 
hardware organization first, followed by efforts to 
implement compatible software. As an example, the ILLIAC IV 
computer [Ref. 3] was designed to capitalize on the 
parallelism inherent in problems where the data is naturally 
structured in array form. The processing elements, each 
with 2K of memory, are organized into four 8x8 arrays. 
Kuck [Ref. 4] discusses the programming language 
Tranquility which was designed for the ILLIAC IV. 
Tranguiliry is an algol-like language which provides the 
programmer with sequential and simultaneous control 
statements. 

Ramamoorthy and Gonzales [Ref. 5] suggest two 
approaches to the problem of recognizing program tasks which 
can be executed in parallel. The first approach is to 
provide the programmer with tools, like Tranquility, which 
enable him to explicitly indicate tasks which can be 
processed in parallel. The second approach involves 
preprocessing the source program to analyze the 
relationships between tasks and thus determine what parallel 
processing is possible. Lamport [Ref. 6] presents two 

methods for enabling parallel execution of Fortran DO loops. 
Keller [Ref. 7] discusses methods whereby processors can 
"look-ahead" to a limited number of sequentially organized 
instructions to find instructions that can be executed 
"out-of-order" without affecting the final outcome. 
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Research into methods of recognizing independent program 
segments, and hence parallelism, within sequential 
algorithms, seems worthwhile since it may permit established 
program libraries to be efficiently utilized on future 
parallel processors. Stone [Ref. 8 ] however, points out 
that efficient algorithms designed for parallel execution 
may prove to be quite different from their serial 
counterparts. 

Based on the work done in developing parallel processing 
systems so far, and on the recent and predicted advances in 
LSI technology, a reasonable way to implement a general 
purpose parallel processing system is to first develop a 
software system for describing the parallel execution of 
computer algorithms and then to organize the hardware so as 
to physically implement the software system. This thesis 
considers such a software system and suggests an approach to 
the hardware organization. 



B. SOFTWARE FOR A PARALLEL SYSTEM 

t 

The software system considered is a subset of an 
existing language, LISP, whose syntax allows easy 
recognition of parallel tasks within a program. In '’pure” 
LISP, programs are defined as recursive functions of 
conditional expressions which act on ordered sets of input 
data. When evaluating algorithms which are described 
functionally, as in '•pure" LISP, 2 the procedure is to 
first evaluate the arguments and then to apply the function. 
It is this simple procedure which differentiates between 
what can be done in parallel and what must be done in 



LISP, 



2 Henceforth, the term LISP will be used to mean "pure" 



sequence. That is to say, the arguments to a function 
represent processes which can be executed in parallel, while 
the composition of functions represent processes which must 
be executed sequentially. 



In order to "reveal" the parallelism inherent in a LISP 
program and to show that it is recognizable at 

execution-time, ■ the LISP function evalguote2 has been 
developed. Section III describes evalquote2 in detail. 
Evalguote2 is similar to the universal function evalguote. 
Evalquote is called a universal function . (or interpreter) 
because it can compute the result of any LISP function 

applied to its arguments if the result is defined. 

Evalguote2 also computes the result of any LISP function 

applied to its arguments, and additionally, it monitors the 
data flow graph which describes graphically the sequential 
and parallel relationships between executing LISP 

primitives. The output from evalquote2 includes a list of 
integers representing the number of separate processors 
required to optimize parallel processing at each stage of 
execution. 



In order to postulate the effect of running non-trivial, 
LISP programs in a hypothetical parallel processing 
environment, evalquote2 is implemented by a 

LISP-metalanguage translator and interpreter written in 
Algol-H. This Algol-W program will henceforth be referred 
to as the interpreter. Section IV explains the interpreter 
and the results it has obtained from processing several 
sample LISP programs. 

C. MEASURING PARALLELISM 

When proposing a parallel processing system it is 
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measure 



of the 



necessary to provide some 
improvement in efficiency. 



expected 
Stone [8] uses the speed-up 



ratio which is defined for a given algorithm as the ratio of 
the execution time for the best serial version of the 
algorithm to the execution time for the best parallel 
version of the algorithm. The interpreter provides a 
similar measure of efficiency improvement for the sample 
LISP programs evaluated. In this case, the speed-up ratio 
is the ratio of the number of execution steps required for a 
sequential execution tt> the number of stages required for a 
parallel execution. 

The sample programs analyzed by the interpreter were not 

chosen because they generate particularly large speed-up 

ratios. Rather, they were chosen as "typical*' programs 

offering a reasonable blend of conditional expressions, 

functional composition, and recursion. The speed-up ratios 

computed for these programs provide a very limited view of 

the improved efficiency possible with a general purpose 

parallel processing system. ILLIAC IV, the most widely 

known of the existing parallel processors, is call an array 

processor because it s/as developed to process a class of 

algorithms for which the speed-up ratios are enormous. 

Matrix multiplication is an example of an operation for 
✓ 

which large speed-ups are possible, and it is included among 
the sample programs. In order to gain some insight into the 
results expected from the sample programs, the remaining 
paragraphs of this section will discuss the speed-ups 
possible in matrix multiplication and summation algorithms. 

D. THE EXAMPLE OF MATRIX MULTIPLICATION 



Multiplication of two n x n matrices requires n 



3 
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2 

multiplications and n (n-1) additions. When performed 

3 2 



sequentially, this process requires n + n (n-1) (or 
3 2 

2n - n ) steps, where a step is one addition or one 

3 

multiplication. Observe, however, that all of the n 

multiplications are independent of one another and could be 

3 

done in one step consisting of n simultaneous 

3 



multiplications (assuming there were n multipliers 
available) . 



The n (n-1) additions represent the n summations, each 

of n products from the multiplications, which will produce 

2 2 
the n elements of the product matrix. Certainly the n 

summations are independent of one another and hence could be 
performed in parallel. 



Now consider the summation of n elements. Such a 
summation requires n-1 additions. Because addition is 
associative, the order in which the n-1 additions are 
preformed will not affect the outcome. Because addition is 
a binary operation, the summation process can be started by 
simultaneously adding LP/Zi pairs of addends. 3 The 
summation process can then be reapplied to the fn/Tj 
remaining elements. This procedure will still require a 
total of n-1 additions, but only flog nl steps are required 



3 For a real number x, 

fxl denotes an integer such that x < fx") < x + 1, and 
l_xj denotes an integer such that x-1 < )_xj < x. 
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(assuming a minimum of [n/2j adders are available for the 
first step) . 

Hence, the total process of' matrix multiplication of two 

n X n matrices could be performed in 1 + flog n"| steps. Of 

2 

3 

course, such a parallel computation would reguire n 

2 

multipliers for step 1, n (\n/2j) adders for step 2, and 

approximately half as many adders for each successive step. 

Consider the multiplication of two 8x3 matrices. If done 
sequentially, this process would require 960 steps. If done 
with optimum paralleling, this process would reguire only 4 
steps! Hence, a speed-up ratio of 240 could be achieved by 
512 parallel multipliers and 256 parallel adders. A LISP 
program which multiplies two 4x4 matrices is included 
among the sample programs and will be discussed in Section 
IV. 

E. SPEED-UP FOR ASSOCIATIVE PROCESSES 

There is a general result for the speed-up possible in a 
process composed of associative sub-processes such as the 
summation process just discussed. To develop this result it 
is necessary to define some terms. 

As used herein, the term "primitive" (or "primitive 
process") refers to a member of the set of operations that 
can be performed by a processor. A processor is an agent 

(human or machine) which can carry out a process. The 

\ 

process may be just a primitive, or it may be a composition 
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of primitives. In the example of multiplying two matrices, 
the process of matrix multiplication was composed of the 
primitives for scalar multiplication and addition. For some 
processors, multiplication is a process composed of the 
primitives shift and add. 

The operands for primitives may be referred to as data 
elements. A primitive may be unary, binary, or . n-ary, 
meaning that it processes one, two, or n data elements in 
one processing step. The physical action implied by the 
terms primitive process, process, and data elements can be 
described abstractly by the terms initial functions, 
functions, and set elements. 

The following general formula represents the speed-up 
ratio which can be achieved by an ideal parallel processing 
system^ for a general process composed of associative, 
n-ary, primitives acting on a set of N data elements. 

^ r(»-1) / (n-t)l ^ ^ 

speed-up ratio = , n > 2 

Llog NJ 
n 

The numerator represents the number of steps required for a 
sequential execution. Each sequential step would reduce the 
number of data elements remaining by n-1 until n or fewer 
elements remained. The final srep would reduce the number 
of elements to one. The denominator represents the number 
of steps required for a parallel execution. At each step, 
successive n-tuples would be operated upon in parallel. 
Brent [Ref. 9] provides an analysis of parallel execution 
times possible for arithmetic expressions in general. 



F. COMPARISON OF SUMMATION ALGORITHMS 



^ An ideal parallel processing system is one that has 
all the primitive processors it will ever need. 



16 



Because summation is a process composed of binary, 

associative additions, a speed-up ratio of (N-1) / 1 log N| 

2 

can be achieved when summing N data elements. Three 

summation algorithms, one serial and two parallel, are 
considered. 

The following program segment represents a typical 

FORTRAN subroutine for summing a vector of integers. 

FUNCTION SUM (INTGRS, N) 

DIMENSION INTGRS (N) 

ISUM = 0 
DO 1 I = 1 , N 

1 ISUM = ISUM + INTGRS (I) 

RETURN 

This serial algorithm actually requires N steps. Since the 
FORTRAN DO loop will be processed at least once, it is 
necessary to allow for the case where the vector contains 
only one integer. 



The following segment from Ref. 4 is a parallel 

algorithm for the summation process written in TRANQUILITY. 

BEGIN INTEGER ARRAY A[0:255]; INTEGER I,J,K,; 

FOR (K) SEQ (0,...,7) DO 
BEGIN 
J ♦- 2fK; 

FOR (I) SIM (0,...,255) DO 

A[I] - A[Ij + A[ (I+J) HOD 256 ] 

END ; 



END: 

This segment is designed to use 256 processor elements to 
sum exactly 256 elements. If the input data set has less 
than 256 elements, the remaining elements of the array are 
given zero values. If there are more than 256 elements the 
extras are folded across the 256 processing element 
memories, and each processor performs a serial summation 
before rhe above segment is invoked. Referring to the 
result developed in sub-section D, the number of steps 
required for the parallel summation of 256 elements is 
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log 256 or 8. The outer FOR loop represents this sequence 
2 

(SEQ) of 8 (0,,..,7) steps. The inner FOR loop causes the 
simutaneous execution (SIM) of the ' + ' primitive by each 
processor (0,...,255). This inner loop will be executed a 
total of 8 times after which each processing element will 
contain the final sum. 

The last summation algorithm presented here is in the 
syntax of the LISP metalanguage. 

sumra] = [nulircdrr a ] ] -* carfa]; 

T -* sum[reduce[a ] 

reducer a] = [nullfa] - NIL: nullfcdr[a]l -» a; 

T - consC add[car[ al; cadrfa]]; 
reduce[ cdar[ a ] ] ] j 

The variable 'a' represents a list of integers to be 
summed. If the list contains two or more integers, the sum 
function calls on the reduce function. The reduce function 
adds successive integer pairs and returns a reduced list of 
integers. The sum function is then applied to the reduced 
list. This process continues until the list contains only 
one integer which is the final sura. By computing these 
arguments in parallel the above algorithm will generate the 
sum of N elements in flog n 1 addition steps. 



Section II provides some background information on data 
flow graphs and LISP programs. This information is 
necessary for understanding the development of evalguote2 
discussed in Section III. Section V proposes 
hardware organization for implementing 
execution described by evalguote2. 



a "skeletal" 
the parallel 
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II. 3ACKGR00ND 



This section contains background information necessary 
for understanding the development of Evalquote2 in Section 
III and the test programs discussed in Section IV. Included 
is a discussion of LISP concepts and a modified version of 
the LISP metalanguage syntax which is used for the programs 
in this thesis. Data flow graphs are explained as a tool 
for recognizing parallelism, and the g-vector is introduced 
as a notational device for describing data flow graphs. 



A. THE LISP LANGUAGE 

The LISP language is best described by Section I of Ref. 
10. An overview of the language will be provided here. 
Appendix A contains the language syntax for the programs 
used in this thesis. Because these programs were run on a 
S/360 using EBCDIC characters, the notation differs slightly 
from the notation published in Ref. 10. 

A LISP program is a LISP function and an argument list 
whose elements are S-expressions (symbolic expressions) . An 
S-expression can be one symbol called an atom, or it can be 
an ordered list of S-expressions which is usually delimited 
by parentheses. There are three primitive functions used to 
manipulate S-expressions. The CAR function gives the first 
element within an S-expression. The CDR function gives the 
S-expression remaining after removal of the first element. 
The CONS functions takes two S-expressions and produces a 
new S-expression by inserting the first S-expression as the 
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first element within 


the second 


S-ex pression. 


For example. 


CAR< (A B C) > gives A 


, CDR^(A B 


C) > 


' gives 


(B C) , and 


C0NS<A; (B C) > gives 


(A B C) . 


An 


empty 


list , () , is 


equivalent to the atom 


NIL. 









There are two primitive functions which are predicates. 
EQ gives the atom T if its two arguments represent the same 
atom, or F otherwise. ATOM gives the atom T if its argument 
is an atom, or F otherwise. 

The version of LISP used in this thesis includes the 
primitives ADD and MUL which give the sum and product, 
respectively, of two atoms which are non-negative integers. 

By allowing the operations of composition and recursion, 
the class of functions definable in terms of the primitive 
functions can be expanded to the set of partial recursive 
functions over the domain of S-expressions . McCarthy [11] 
gives a formal development of the class of functions 
computable in terms of given base functions. Any function 
belonging to the class of computable LISP functions can be 
described with the use of LAMBDA and LABEL notations and 
conditional forms. 

These notations will be explained in terms of the syntax 
of Appendix A. Non-terminal symbols are in lower case 
letters. The LABEL notation looks like 
o)<FN; function>, 

where FN is the name assigned to the function. The LABEL 
notation allows the programmer to define recursive 
functions. The LAMBDA notation looks like 
S«X;. . . ;XN>; form>, 

where XI through XN are dummy variables used within the form 
which defines the function. When a LAMBDA function is 
applied to a set of S-expressions, the dummy variables are 
assigned the values of the corresponding S-expressions. 
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There are four possibilities for a form. It may be 
merely a constant or a variable. Or it may be another 
function with its own argument list. Or lastly, it may be a 
conditional form. In the syntax of Appendix A, conditional 
forms appear as a list of predicate-expression pairs. 
Conditional forms are evaluated by evaluating successive 
predicates until one of them evaluates to T. The value of 
the corresponding expression then becomes the value of the 
entire conditional form. 

A more general notation for a conditional form is (p -> 
c,a), where p is the premise, c is the conclusion, and a is 
the alternative. The premise is a propositional form which 
evaluates to a truth value. The value of the premise 
determines whether the conclusion or the alternative will 
give the value of the form. The conclusion and the 
alternative may themselves be conditional forms. Reference 
11 includes a detailed discussion of the formal properties 
of conditional forms. 



B. FUNCTIONALS AND PROGRAM ORGANIZATION 



As defined by the syntax in Appendix A, an argument can 
be a form or a function. Functions which accept functions 
as arguments are called functionals. The best known 
functional in LIS? is evalguote. Evalquote takes as 
arguments any LISP function and its argument list and gives 
the result of the function applied to its arguments, i. e., 
EVALQUOTE<f unction; (argument. . .argument) > 
is equivalent to 

function< argument ; . . . ;argument> . 

Reference 10 describes evalquote. Appendix D contains a 
program listing of evalquote in the syntax of Appendix A. 
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The concept of functionals has powerful implications. 
One of the features of functionals is that they enable the 
programmer to achieve the same economy of expression and 
memory space that is achieved in other programming languages 
through the use of subroutines. A function can be defined 
once as an argument to a LAMBDA function. The function 
definition is then paired with a variable and can be used 
repeatedly in the defining form of the LAMBDA function. 

The sample programs presented in this thesis make use of 
functionals in this way. The general organization of these 
programs is given below. Comments are enclosed in single 
quotes. Non-terminal symbols are in lower case letters. 



S«VAR1 ;. .. ;VARN>; 


'program variables' 


&<<F1 ; . . . ;FM>; 


'function names' 


f or m> 


•defining form for the program 



in terms of VI through VN 
and FI through ?H' 



< ' FI ' function ; 


•function definitions' 


'F2' function; 




• • • 

•FM' function>> 


•end of program function' 


<s-exp1 ;. . . ;s-expN> 


'program argument list' 


# 


•EOF symbol' 



C. DATA FLOW GRAPH 

A data flow graph is a graphical description of the 
execution of a specific program. The entities depicted by a 
data flow graph are data elements and primitive processes. 

For the sample data flow graphs of this section, the 
nodes are labeled with primitive processes and the edges are 
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labeled with data elements. Figure 1 is the data flow graph 
for the FORTRAN function SUM (from Section I) where the data 
is an integer vector of eight 1's. Only the primitive '+' 
is used in the graph. Figure 2 is the data flow graph for 
the LISP function SUM (also from Section I) applied to a 
list of eight I's. Again only the primitive 'ADD' is used 
in the graph. For a specific program execution the data 
flow graph illustrates the execution order among the 
primitive processes, specifically describing which processes 
can be performed simultaneously and which must be performed 
in sequence. 



In graph theory, an edge is usually defined b 
nodes to which it is connected. There are edges 
graphs of figures 1 and 2 which are connected to 
node. This is only a superficial discrepency which 
corrected by viewing the data elements as node 
primitive processes as edges. Figure 3 shows this 
for the graph of figure 2. In the dual form, 
primitive process is represented by two edges. 



y the 


two 


in 


the 


only 


one 


can 


be 


s and 


the 


dual 


form 


a bi: 


nary 



In graph theory a path is defined as any sequence of 
edges in which each successive edge originates from the 
terminal node of the preceding edge. A data flow graph is 
an acyclic directed graph. The term "directed" means that a 
direction is associated with each edge. "Acyclic" implies 
that no edges are repeated in any path. The length of a 
path is defined as the number of edges in the path. The 
length of the longest path in the dual form of a data flow 
graph represents the number of execution stages which would 
be required in a parallel execution. 



The width of a data flo 
execution is defined herein 
processes to be executed at 
width represents the minimum 



w graph at a particular stage of 
as the number of primitive 
that stage. Hence, the maximum 
number of processors required 
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Figure 1. Graph of Fortran Sum 




Figure 2. Graph of LISP Sum 
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for optimum parallel execution. 



Data flow graphs should not be confused with program 
graphs. Pregram graphs represent abstractions of flow 
charts and are useful in the analysis of algorithms. They 
highlight the flow of control without regard to a particular 
data set. Program graphs are usually cyclic digraphs. 

PAIRLIS is a LISP function which pairs together elements 
of two S-expressions and appends the resulting list of pairs 
to an existing list. PAIRLIS is used by evalguote to pair 
variables with their corresponding S-expression values and 
store these pairs on the association list. Program 1 of 
Appendix D is PAIRLIS<(A B) ; (1 2);((C.3))>. Figure 4 shows 
the data flow graph depicting the execution of this program. 
This graph includes all the primitives used in PAIRLIS and 
illustrates the order in which they are executed. Those 
primitives which line up vertically may be executed in 
parallel. Otherwise, the primitives are executed in order 
from left to right. 



D. G-VECTOR 

A g-vector (graph vector) is a list of integers which 
describes a data flow graph which in turn describes a 
program execution. The general form of a g-vector is 

(w w ... w ). The number of elements in the vector, n, 
12 n 

represents the maximum path length of the data flow graph 

which is the minimum number of steps (or stages) required 

for the entire computation. Each element, w , of the 

i 

g-vector represents the width of the data flow graph (or the 
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FigurG 4, Ddtd Flow Graph for PAIRLIS{(A 6 ) 5(1 2)»((C.3))) 









minimum number of machine level processors required for 
optimum paralleling) at step i in the computation. The sum 
of the elements in the g-vector represents the total number 
of primitive processes performed in the computation. 

Each data element in the data flow graph describing the 
execution of a LISP program has associated with it a 
g-vector. The g-vector describes a sub-graph that 
represents the computations performed to produce the data 
element. The g-vector may be empty as is the case with 
constants. 



There are two binary operations which can be performed 
on a pair of g-vectors. A g-vector may be appended to 
another g-vector to produce a longer resultant g-vector. 
The resultant g-vector represents the data flow graph for 
two processes which were performed in sequence. A g-vector 
may be combined with another g-vector by summing their 
corresponding elements. The resultant "wider" g-vector 
represents the data flow graph for two processes which were 
performed in parallel. The g-vector for the data flow graph 
of figure 4 is ( 1 4 2 4 2 1 1) . 
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in. EVAL2UOTE2 



Evalguote2 is a LISP function similar to Evalguote. For 
input, evalguote2 takes two S-expressions. The first 
S-expression represents any LISP function, and the second 
S-expression represents a valid argument list for that 
function. As with all LISP programs, the output from 
evalguote2 is a single S-expression. The CAS of this 

S-expression represents the result of the input function 
applied to the input argument list. The CDS of the output 
S-expression is the g-vector (a list of integers) describing 
the data flow graph resulting from the application of the 
input function to the input argument list. Appendix 3 is a 
listing of evalguote2 applied to the PAIRLIS function of 
Figure 4. 

The sub-functions used to define evalguote2 are similar 
to the sub-functions used to define evalguote along with 
some additional functions used to compute the g-vector. 
These sub-functions will be discussed shortly, but first 
will be a discussion of the logic used by evalquote2 to 
compute the g-vector. 

A. LOGICAL DEVELOPMENT 



The arguments for a function are independent of one 
another and may be evaluated simultaneously (in parallel) . 
The evaluation of each argument produces a resultant 
S-expression and g-vector. When an argument is a function 
with its own argument list, the g-vector associated with the 
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g-vector. The g- vectors are combined by summing their 
corresponding elements. The resultant g-vector describes 
the data flow graph which describes the parallel evaluation 
of the arguments. The length of the resultant g-vector will 
be equal to the length of the longest g-vector created in 
the evaluation of the argument list. Each element of the 
resultant g-vector represents the number of primitive 
functions that were executed at that stage in the parallel 
evaluation of the argument list. 

When all the arguments have been evaluated, the function 
can be applied. The application of the function to the 
evaluated argument list is described by a new data flow 
graph. The g-vector for this graph is appended to the 
g-vector for the combined argument list to produce a longer 
g-vector. This longer g-vector describes the total data 
flow graph which represents the evaluation of both the 
function and its argument list. 

When the defining form for a function is a conditional, 
the g-vector must be computed in a way which describes the 
evaluation cf a conditional form. As discussed previously, 
the general form for a conditional is (p c,a) . The 
possibility of parallel evaluation of p, c, and a will be 
discussed later. Normally p (the predicate) is evaluated 
first and then c (the conclusion) or a (the alternative) is 
evaluated next depending on the value of p. Hence, the 
g-vector for p is computed first, and then the g-vector for 
c or a is appended. The resultant g-vector describes the 
sequential evaluation that has occurred. 
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B. SUB-FUNCTIONS 



In order to more easily understand the following 
explanations of the sub- functions used in evalquote2, it may 
be helpful to scan Appendix B before proceeding. 

Apply2 computes the g-vector describing the application 
of a function to its arguments. The parameters for apply2 
are similar to those for apply except that the second 
parameter represents both the argument list and the combined 
g-vector describing the parallel evaluation of the 
arguments. Notice that when apply2 is first called by 
evalquote2, the g-vector for the argument list is empty. 
This is because the initial arguments are all S-expressions 
and need no evaluation. If the function is a primitive, 
then the g-vector describing the application is (1) . 
Therefore, (1) is appended to the existing g-vector and this 
new g-vector is associated with the resultant data element. 

If the function is a lambda or label expression, or a 
previously defined function, then the defining form will be 
evaluated by eval2. Eval2 will return a data element 
associated with a g-vector describing the evaluation. The 
sub-function compose is then used to append the g-vector 
returned by eval2 with the g-vector that came with the 
argument list. 

Eval2 is similar to eval in that it evaluates forms. 
The difference is that eval2 associates a g-vector with an 
s-expression (resultant data element) for each evaluation. 
If the form is a variable or a constant the g-vector is 
empty. If the form is a condit ional ,t hen evcon2 is called. 



30 



Evcon2 is similar to evcon except that it also returns a 
g-vector describing the evaluation of the conditional. 
Evcon2 evaluates the first predicate and calls on graphcon. 
If the predicate is true, graphcon evaluates the 
corresponding expression and calls compose. Compose appends 
the g-vector for the expression to the g-vector for the 
predicate and associates the resultant g-vector with the 
resultant data element. If the predicate is false, graphcon 
calls compose with the result of evcon2 applied to the 
remainder of the conditional and the g-vector of the first 
predicate . 



If the form given to eval2 is a function with its 
argument list, the argument list is given to evlis2 for 
evaluation. Evlis2 is similar to evlis in that it evaluates 
arguments, but it also combines the g-vectors of evaluated 
arguments to produce a resultant g-vector describing the 
parallel evaluation of the arguments. 

The sub-function compose is used to compute g-vectors 
resulting from the composition of functions. Composition of 
functions describes computational processes which must 
naturally occur in sequence. Compose is called from apply2 
and graphcon. Append is a standard LISP function used to 
create a new list of the top level elements of two input 
lists. Append is called from apply2 and compose. Combine 
is used to compute g-vectors representing the parallel 
evaluation of arguments. Combine is called from evlis2. 
Sum is used by combine for adding corresponding elements of 
two g-vectors. The remaining sub-functions are identical to 
sub-functions used in evalguote. 
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IV 



. RESULTS OF E;£kLQUOTE2 IMPLEM ENT ATION 



Evalguote2 has been implemented through an interpreter 
program written in Algol-W. This section documents the 
interpreter which has been compiled to run on a S/360. Also 
discussed are the sample LISP programs which were run under 
the interpreter and their results. 

A. THE ALGOL-W INTERPRETER 

Appendix E contains a source listing for the 
Interpreter. Functionally, the interpreter is nearly 
identical to evalguote2. That is, it produces the result of 
a LISP function applied to its arguments along with the 
associated g-vector. The following paragraphs summarize the 
organization of the Interpreter. 

1 . Inp ut 

For input, the Interpreter accepts programs written 
in the metalanguage syntax of Appendix A. Input is expected 
from 80-character records and can be written free-form 
(column independent) . 

If the first character of a record is a 'S', the 
second character represents a toggle and causes a logical 
variable to be reset. The remainder of the record is 
ignored and may be used to comment on the reason for the 
toggle. If the toggle is a 'S', it causes the toggle 
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records to be listed until the next '$$' record is 
encountered. '$L' resets the LISTING variable which is 

turned on initially. '$T' resets the TRANS variable which 
is turned off initially. When on, TRANS causes the 
S-expression translations of the input function and argument 
list to be printed on the output device. '$A' causes only 
the arithmetic operators (ADD and MUL) to be included in the 
computation of the g-vector. 

If the first character of a record is a the 

entire record is considered a comment. Single quotes are 
used to delimit in-line comments. 



2 • Tran slatio n 



The SCANNER routine reads tokens (identifiers, 
constants, numbers, and specials) from the input stream. 
The translation routines change the program into two 
S-expressions (one for the function and one for the argument 
list) and store them in memory in the form of linked lists. 
The translation routines function in accordance with the 
translation rules of Appendix C. These translation rules 
were derived from the rules for translating M-expr essions to 
S-expressions presented in Ref. 10. 

3 • Interpretation 

Because Algol-W supports recursion, the 
interpretation routines are nearly identical to evalguote2 
which was explained in the previous section. The evalquote2 
procedure within the Interpreter may be viewed as a 
microprogram in a hypothetical LISP machine. The machine's 
memory already contains an S-expression for a function and 
an S-expression for an argument list. The machine generates 
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and 



a resultant S-expression containing the program result 
the g-vector. 

4 , Out pu t 

The output from the Interpreter includes the 
resultant S-expression containing the program result and 
g-vector and also a summary of the information contained in 
the g-vector. The summary includes the number of processing 
elements required for a parallel execution, the number of 
execution steps required for both a sequential and a 
parallel execution, and the speed-up ratio. Additional 
output from the Interpreter includes diagnostic error 
messages for the more common syntactic and semantic errors. 

B. SAMPLE PEOGP.AMS 

Appendix D contains the sample LISP programs which were 
run under the interpreter. Program 1 is the PAIRLIS 
function with the same arguments used to generate the data 
flow graph of Figure 4. Program 1 is included to illustrate 
the output from the Interpreter. The output includes the 
program listing followed by the S-expression translations of 
the function and argument list (enabled by the $T toggle) . 
The CDR of the resultant S-expression can be compared with 
the data flow graph of Figure 4. 

V 

I • M at rix Mu Itipl icat ion 



Programs 2 through 5 
of two 4x4 matrices in 
Hence, the resulting product 



represent matrix multiplication 
which all the elements are 1's. 
matrix is a 4 x 4 of all 4's. 
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The S-expression representation for the first factor is in 
row major order while the second factor is in column major 
order . 

Programs 2 and 3 use the same algorithm to compute 
the matrix product. Program 3 uses the $A toggle to include 
only arithmetic operations in the computation of the 

g-vector. The MATMUL function computes the rows of the 
product matrix by calling the row function. The row 

function computes the elements of each row by calling the 
dot function. The dot function computes the dot product of 
each row of the first factor with each column of the second 
factor. The dot function is defined so as to sequentially 
add the integer products of vector elements. As discussed 
in Section I, this is not the optimum way to define an 
associative process for a parallel processor. 

Programs 4 and 5 use the sum function presented in 
Section I to optimize the summation required for each dot 
product. The g-vector computed for program 5 considers 
arithmetic operations only. Note that the results for 
program 5 correspond to the theoretic results discussed in 
Section I. That is, the number of required sequential steps 
3 2 

is 2n -n , or 112 for n='4 . The number of parallel steps is 
1 + riog^n"! or 3 for n=4 . Because program 3 performs 

additions sequentially, it requires one more parallel step 
than program 5. 



The speed-up ratios computed for programs 4 and 5 
might be considered as lower and upper bounds, respectively, 
for an actual speed-up ratio (one that compares an actual 
parallel machine with an actual sequential machine) . 
Program 5 ignores the data accesses represented by CAR, CD3, 
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and CONS operations and also execution controls represented 
by the SQ operation. Obviously, the data must be moved into 
position in order to be operated upon, even if the movement 
of data takes place in parallel. Program 4 computes the 
speed-up ratio by giving the same weight to CAR, CDR, CONS, 
and EQ as it gives to ADD and MOL. This is not necessarily 
a correct assumption either, since data can normally be 
accessed from a high-speed memory faster than the arithmetic 
operations can be performed. 

2 . Symbolic Differentiation 

Programs 6 and 7 represent the symbolic 

4 

differentiation of a fourth degree binomial, (x + y) , with 

respect to x. The function consists of two primary 

sub-functions. DIFF computes the derivative by the rules 
for differentiating algebraic expressions. SIMP simplifies 
the result by eliminating factors of "1" and addends of "0." 

For program 6 the S-expression representation of 
4 

(X + y) is 

(((X + y) ♦ (X + y) ) * ((X + y) * (x + y) ) ) . 

In this expression the data is arranged symmetrically. For 
program 7 the data is arranged asymmetrically and looks like 
((X + y) * ((X +y) * ((X + y) * (X + y) ) ) ) . 

As expected the speed-up ratio is greater for program 6 
(5.2) than for program 7 (4.1). This comparison was made to 

provide an example in wnich symmetrically organized data 
caused a greater speed-up ratio than the same data organized 
asymmetrically. 
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3 • Eval quot e 

Program 8 is the universal function evalquote. The 
arguments for evalquote are the S-expression translations 
from program 1. The speed-up ratio for program 8 is 1.86. 
This is the smallest speed-up ratio of all the sample 
programs. Additional runs were made with this program in 
which the PAIBLIS function paired lists of three elements 
each and lists of four elements each. Each run produced 
essentially the same speed-up ratio (1.86) . 

For the matrix multiplication examples, the data is 
two-dimensional. As the size of the matrix factors is 
increased, the resulting data flow graph widens at a greater 
rate than it lengthens. In fact it widens at a rate 

3 

proportional to n (the number of simultaneous 
multiplications) while it lengthens at a rate proportional 
to log^n. Program 8, on the other hand, is operating on 

one-dimensional data. Increasing the size of the data 

elements for PAIRLIS causes the total number of elements in 
the data flow graph to increase at the same rate as the 
length increases. Hence, the speed-up ratio remains 
essentially constant. 
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V. 



HARDWARE CONSIDERATIONS 



The problem addressed in this section is how to design a 
hardware system which will implement the parallel execution 
of algorithms which are defined by a software system such as 
"pure” LISP. A detailed hardware design will not be given. 
Rather, a "skeletal" design for the hardware will be 
presented at a functional level in order to bring out some 
of the considerations involved in any design. 



Before proceeding with the example design, some 
clarification of terminology will be given. A parallel 
processing system refers to both the software and hardware 
portions of a complete system. A parallel processing 
machine (or computer) refers to the hardware alone, 
including at least memory and processors. A parallel 
processing system might include one or more parallel 
processing machines. The processor module refers to the 
module within a machine which contains the processing 
elements. A processing element refers to a single 
processor . 



A parallel processing machine must perform a function 
similar to evalguote2. That is, it must evaluate a LISP 
function applied to its arguments and in the process 
recognize parallelism. The data for this machine, both 
functions and operands, is in the form of ordered sets 
(parenthetical expressions) . This data can be stored in a 
sequentially organized memory in the form of linked lists. 



A. PROCESSOR MODULE 
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Ideally, the processor module would be constructed on a 
single chip. Figure 5 is a modular diagram of a processor 
module. Each processing element in the module represents a 
hardware implementation of evalguote. There are three 
inputs to a processing element. The first input is a memory 
address for a program or a form as defined by the 
metalanguage syntax. The second input is a device address 
for returning the result to be computed. The third input is 
the memory address of the applicable association list. The 
outputs from a processing element are the result of the 
function applied to its arguments and the address of the 
device for which this result is destined. 

1 . The Pr oces s or Mana ger 

The processor manager controls data transfers 
between the processing elements. The processor manager also 
keeps track of the status (busy or free) of each processing 
element. Initially, a LISP program (a list containing a 
function and constant arguments) is made available to a 
processor module from an external agent such as a terminal 
user or another parallel processing machine. After the 
program is read into memory, the processor manager assigns 
the program to a processing element along with a return 
address to an external device (terminal, printer, external 
storage, or another parallel processing machine) . As the 
processing element recognizes processes which can be 
computed in parallel these processes are made available to 
the processor manager for assignment to other available 
processing elements. The return address for these processes 
will be the processing element that originated them. When 
all processing elements are busy the processor manager will 
queue waiting processes. 
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Figure 5. Processor Module 
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• Th® Memory Manag er 

The memory manager controls the common memory. 
Between programs, the memory manager converts memory into a 
single list of free storage cells. This list is made 
available for reading a new program into memory. Once 
execution has begun, the memory manager provides free 
storage cells to each processing element for use in 
performing the CONS primitive. Garbage collection is 
performed by monitoring the associa t ion- list stack in each 
processing element and returning links from outdated lists 
to the free storage list. 

3 . Timing 

By constructing the processor module on a single 
chip it can be controlled by a single timer. Two basic 
clock cycles, a compute cycle and a transfer cycle, are 
required . 



The compute cycle enables all the processing 
elements to perform a computation if they have one to 
perform. Also during this cycle, the processor manager's 
list of available processors is updated via the status flags 
on each of the processing elements. During the compute 
cycle the memory manager can perform garbage collection or 
issue free storage cells. 

During the transfer cycle the processor manager 
performs a linear sweep cf the processing element output 
ports. As an output port with data to be transferred is 
swept, the destination (indicated by the return address) is 
enabled and the data transferred. One entire sweep is 
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performed in a single transfer cycle. Simultaneously, 
during the transfer cycle, the memory manager performs a 
linear sweep of the memory ports for each processing 
element. All memory read and write operations are performed 
during a single transfer cycle. 



B. A PROCESSING ELEMENT 



Figure 6 is a modular diagram of a single processing 
element. The purpose of a processing element is to accept, 
as input, a form, as defined by the metalanguage systax, and 
to produce, as output, the evaluated result of the form. 
The actions of the processing element are controlled by the 
decode-and-cont rol module (DCM) . The DCM contains the 
microprograms for all the primitive functions (CAR, CDR, 
CONS, ADD, etc.) . The DCM also manages four pushdown stacks 
which are required for evaluating complex forms. The DCM 
also controls the processing element status register and the 
I/O to the processor transfer bus and the memory bus. 
Figure 7 is a functional flow chart describing the tasks 
performed by the DCM. 



The inputs to a processing element are provid 
processor manager or by the processing element's 
The first input is the address of a form and goes 
program register. The second input is the address 
association list for the form. If the form is an 
program (function and constant arguments) from an 
device, then the association list will be em 
incoming return address register receives the addre 
device to which the result will be sent. 
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PI(>;ure 7, Flow Chart for Decode and Control Module (1 o^ 3) 
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Flj^ure 7. Flow Chart for PCM (2 of 3) 
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The DCM is designed to implement the overall policy of 
the parallel processing system. That policy is to perform 
seguential processes in sequence and to enable parallel 
processes to be performed in parallel. Hence, if the form 
that is input to the program register is a function and a 
set of unevaluated arguments, then the DCM will stack the 
function on the function pushdown, input one of the 
arguments to its own processing element, and send the 
remaining arguments to the processor manager for parallel 
evaluation by other available processing elements. When all 
the arguments have been evaluated and returned to the forms 
pushdown, the DCM will pop the function into the current 
function register. If the function is a primitive, it is 
decoded by the DCM and applied to the arguments. If the 

function is a lambda expression, the DCM creates a new 
association list in memory by pairing rhe variables of the 
lambda expression with the evaluated arguments on the 
pushdown. The DCM then inputs to the program register the 
remainder of the lambda expression which is a form defining 
the function. 



If the form is a conditional, the reserved word COND is 
stored on the function pushdown. The list address for the 
second and successive predicate-expres sion pairs, the list 
address for the first expression, and the list address for 
the first predicate are stored in that order on the forms 
pushdown. Those three forms represent the predicate, the 
conclusion, and the alternative, respectively, for a 
generalized conditional expression. it is input to the 
processing element for evaluation. If the predicate is not 
a constant. If the predicate evaluates to true, the 
conclusion, which is next on the forms pushdown, is 
evaluated, the alternative is discarded, and the COND is 
popped off the function stack. If the predicate evaluates 
to false, the COND is left on the function stack, the 
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variable, the DCM uses the accompanying association list 
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VI. ADDITIONAL P ARA LLEL PROCES^NG CONSIDER^IONS 



There remain several areas within the realm of parallel 
processing of recursive functions which need further 
research. Three of these areas will be discussed in this 
section. 

A. PARALLEL PROCESSING OF CONDITIONAL FORMS 

Parallel processing of a conditional form means that 
evaluations of the predicate, conclusion, and alternative 
are begun in parallel. If any of these forms are themselves 
conditionals, or contain conditionals, then they too are 
processed in parallel. When the predicate evaluates to true 
(or false) , all processing generated by the alternative (or 
conclusion) is halted, and any storage allocated for the 
evaluation of the alternative (or conclusion) is reclaimed. 

One of the problems with parallel processing of 

conditional forms is that it is wasteful of memory. It 
might happen that parallel processing of a conditional form 
would exhaust memory before completion, whereas normal 
processing could complete within available memory. Problems 
associated with limited memory sizes, however, can be 
expected to lessen as advances in memory technologies 
continue to push cost down and volume up. 

Another problem with parallel processing of conditional 
forms concerns undefined forms. A conditional form is 
considered defined if: 1) the predicate is defined; and 2) 
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the conclusion is defined if the predicate is true, or the 
alternative is defined if the predicate is false. Hence, a 
well-defined conditional form may have either an undefined 
conclusion or an undefined alternative, but not both. A 
system which processes conditional forms in parallel must be 
prepared to deal with undefined forms. Some undefined forms 
are recognizable while others are not. For example, if X is 
an atom, then CAR<X> can be recognized as undefined. 
Analysis of the halting problem has shown that some 
undefined forms {e.g., some which recur infinitely) may not 
be recognizable. 

Assuming that a parallel processing system has 
sufficient resources (memory and processors) , it may still 
be possible to process conditional forms in parallel. For 
example, assume the alternative is undefined. As soon as 
the predicate evaluates to true, processing could be stopped 
on the alternative. This may be a difficult and 
time-consuming task, however, since the alternative process 
may have tied up an intricate net of processing elements. 

Because there are so many unanswered questions 
concerning parallel processing of conditional forms, 
evalquote2 was designed to graph conditionals in the 
traditional way. 

B. THE MEANING. OF SPEED-HP RATIOS 

In the dual form of the data flow graph (the one where 
the nodes represent data elements and the edges represent 
primitive operations) , the speed-up ratio can be defined as 
the number of nodes with indegree greater than zero divided 
by the maximum path length. This definition presupposes an 
unweighted graph which is probably not true for any actual 
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implementation. For example, the procedures for ADD and dUL 
in the Interpreter are much more complex than the procedures 
for CAR and CDR. This was the primary reason for the 
Interpreter's $A toggle which causes only the arithmetic 
primitives to be graphed. It is not inconceivable to 
imagine a parallel machine which has a "smart," associative 
memory that performs the CAR and CDR functions 
automatically, thus eliminating them from the data flow 
graph altogether. 

In a machine where each instruction (primitive) requires 
several timer states to complete, the dara flow through the 
primitive processes can be described by a weighted graph. 
The weight assigned to each primitive represents the number 
of timer states required for that primitive. There is still 
the problem of coordinating data transfers between 
processing elements which implies a need for 
synchronization. Each stage in the parallel execution could 
be timed to allow for the longest possible instruction. 
This would be analogous to the unweighted graph. Or each 
stage could be timed to the longest instruction in the 
stage. This could be implemented by each processing element 
setting a ready line at instruction completion. The 
processor manager would begin data transfers when all the 
ready lines were set. A third alternative is to let each 
processing element execute sequentially until there is data 
to be transferred (a completed rusult or arguments to be 
computed in parallel) , and then to set a transfer ready 
line. The processor manager would continuously monitor the 
transfer ready lines. When a line goes true, the processor 
manager would inrerrupt the destination and enable the 
tra nsf er . 



C. THE WIDTH COMPUTATION 
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The width at each stage of a data flow graph has been 
defined rather loosely as the number of primitive processes 
to be executed at each stage. More precisely, the width at 
stage i has been computed as the number of distinct 
primitives representing step i in separate paths. The 
significance of the width of a data flow graph is that it 
represents the number of processors required at each stage 
for a program execution represented by that data flow graph. 
But what if the required number of processors for a given 
stage were not available? Is there a way for some of the 
processes to be delayed to future stages when sufficient 
processors are available and yet not increase the number of 
parallel steps required for the entire execution? 



Consider once more the data flow graph of Figure 4. If 
only three processors were available at stage two, it might 
be possible to delay the first CAR operation, and hence the 
first CONS operation, and still complete the execution in 
seven parallel steps. Delaying the first CONS operation by 
one stage would cause the width of the graph at stage 4 to 
increase from 4 to 5. This increase could be avoided by 
further delaying this CONS operation one or two more stages. 



If the first CDR operation at stage 2 were delayed, it 
would obviously cause an increase in the number of parallel 
stages required for completion. How can the proper process 
to be delayed be recognized? This would apparently require 
some "look-ahead" capability not included in the parallel 
system of the previous section. Without "looking ahead," it 
may be possible to adopt a strategy which causes the "right" 
processes to be delayed most of the time. For example, of 
the four processes at stage 2 in Figure 4, two produce 
arguments for a CONS and two produce arguments for the next 
invocation of the PAIRLIS function. The two CAR's and 
subsequent CONS represent a known number of required srages 
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(2 ) , whereas the PAIRLIS function is recursive and the 
number of stages required will depend on the data. 

Hence, one strategy might be to "tag" recursive 
functions, and when insufficient processors are available, 
to delay non-recursive functions before delaying recursive 
functions. 

Another strategy that might be used to execute the 
program in a minimum number of stages with a limited number 
of processors requires a modification to the method of 
evaluation used by evalquote2 (and also evalquote) . These 
universal functions evaluate another function and its 
arguments by first evaluating all the arguments and than 
applying the function. There are cases where some work can 
be done in applying the function before all of the arguments 
are evaluated. The PAIRLIS function of Figure 4 again 
serves as an example. From the data flow graph it can be 
seen that the second CDR of stage 2 (as well as the second 
CDR of stage 4) could be delayed one stage without affecting 
the total number of stages required. To do this would mean 
commencing the second (and third) invocations of PAIRLIS 
before all the arguments were evaluated. In other words, as 
soon as the first argument was evaluated, it would enable 
the first predicate, which only requires the first argument, 
to be executed. 

The goal of the two strategies mentioned so far is to 
allow a reduced set of processors to still perform the 
program execution in a minimum number of stages. These two 
strategies as well as the goal they are seeking represent an 
area for further research in the design of a parallel 
processing system. 
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VII 



SUMMARY AND CONCLUSIONS 



It seems appropriate, in summary, to abstract from the 
preceding pages some organizational principles for the 
construction of a parallel processing system. These 
principles are. inspired in part by the principles for 
recursive machines presented in Ref. 2. The three 
principles presented here represent the essential qualities 
of a system designed for the parallel processing of 
recursive functions. These principles are as follows. 

1. Programming language operators (functions) are defined 
recursively in terms of machine-level operators. 

2. Parallel tasks are distributed among available 

processors so that, at any time during program 

execution, the internal machine structure, i. e. the 

relationships between processors, represents the 

structure of the executing program. 

V 

3. Processors share a common main memory in which the data 
is stored associa tively . 



The fir 
principle for 
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functions 
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with such a language structure, a user could define a 
set of functions which would represent a special purpose 
programming language for his particular problem area, rather 
than having to adapt to a general purpose "high-level” 
language . 

The second principle implies the need for some complex 
intercommunication scheme between processors working on the 
same problem. For example, should each processor be 
connected to all other processors, or should processors be 
arranged in some ideal network that provides "sufficient" 
intercommunication? The example parallel processing system 
proposed in the previous section suggests a single transfer 
bus controlled by a processor manager. This "conveyor" 
method has been included in earlier proposals for parallel 
systems [ 12 ] . 



The second principle also implies the concept of 
space-sharing as opposed to time-sharing. A user program 
from a peripheral terminal would be allocated available 
processors until completion rather than being paged in to a 
single processor for a time-slice. As the time-slice 
prevents a single user from monopolizing a time-sharing 
system, similar controls could be provided in a parallel 
system by limiting the number of processing elements or 
processing modules availaole to a single user program. 

The third principle suggests sharing a main memory among 
the processing elements. This would eliminate the excessive 
data transmissions that would occur if each processor had 
its own memory. Storing the data associatively implies any 
scheme in which the data is arranged to facilitate accessing 
successive data elements. This principle has been 
implemented in the past (and in the Interpreter) by building 
linked-list data structures in linearly-organized memories. 
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For a memory which stores data 
S-expressions, the CAR and CDR functions a 
element represent access operations 
elements of that data element. These two 
performed automatically by a "smart'* 
successor elements always made available 
element if and when they are needed. 



in the form of 
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to the successor 
functions could be 
memory, and the 
to a processing 



The concepts of parallel computation are not new. The 
literature is rich with proposals for parallel machines, 
summaries of such proposals, methods for recognizing 
parallelism, and other related subjects. Parallel machines 
of the past have been costly to construct and have required 
complex software support. Meanwhile, sequential machines 
have continued to achieve faster execution speeds. But now, 
as the increases in execution speeds begin to level-off, and 
LSI technology brings the cost of parallel systems within 
reason, the stage is set for a new and different generation 
of computing machines. A proposal has been given for a 
parallel processing system based on defining algorithms as 
recursive functions. Evalquote2 has demonstrated that the 
structure of algorithms defined as recursive functions makes 
possible the distinction between parallel and sequential 
tasks. The ideas presented in this thesis represent an 
attempt to show that a parallel system based on simple, 
highly-structured software can realize the speed-up of 
parallel computation while avoiding the burden of complex 
software . 
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APPENDIX A 



SYNTAX 

The non- terminal symbols are in lower case letters. The 
terminal symbols include <, >, &, 3, ”, (, ), upper 

case letters, and decimal digits. means ”is defined 

as.” 'I' means "or.” '...' means any number of the 

specified element. 



program 


::= f unct ion<s-exp ; . . . ;s-exp> 


function 


: : = identifier | 

5<<variable ; . . . ; variable>; form> | 
3<identif ier ; function> 


form 


::= constant | variable | 

function<argument ; . . . ; argument> | 
<form -1 f orm ; . . . ; f orm form> 


argument 


;:= form | function 


variable 


:;= identifier 


constant 


::= "atom” | (s-exp. s-exp) | 
(s-exp . . . s-exp) 


s-exp 


:;= atom | (s-exp . s-exp) | 
(s-exp . . . s-exp) 


atom 


::= identifier I number 



identifier ::= letter | identifier letter 

identifier digit 
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number 


: := digit I 


1 number 


digit 








letter 


: : = A 


1 B 


1 C 1 


1 D 1 


1 E 1 F 


1 G 1 


1 H 1 


1 I 




J 


1 K 


1 L 1 


H 1 


1 N 1 0 1 


1 P 1 


1 Q 1 


1 R 




s 


1 T 1 


1 0 1 


V . 


1 W 1 X 1 


1 Y 1 


1 z 




digit 


O 

11 

• • 


1 1 1 


1 2 1 


3 1 


1 4 1 5 1 


1 6 1 


1 7 1 


1 8 
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1 

2 

5 

4 

5 
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7 

8 
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19 
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21 

22 
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25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 
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44 

45 

46 

47 
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APPENDIX B 



EV ALQUOTE2 



* EVALQUOTE2 



&<<Fri; ARGS>; 



'SUB-FUNCTION NAMES' 

&<<APPLY2; EVAL2; EVCON2; GRAPUCON; EVLIS2; 
COMPOSE; COMBINE; APPEND; SUM; 

PAIRLIS; ASSOC; NULL; 

CAAR; CADR; CDAR; CADOR; CADAR>; 

'DEFINITION OF EVALQUOTE' 

APPLY2<FN; COMS<ARr,S; ()>; ’‘NIL">> 

'SUB-FUNCTION DEFINITIONS' 



<'APPLY2' &<<FN; X; A>; 

<ATOM<FN> 

<EQ<FN; "CAR"> 

CONS<CAAR<CAR<X>>; APPEND<CDR<X> ; (1)>>; 
EQ<FN; "CDR"> ^ 

COMS<CDAR<CAR<X>>; APPEND <CDR<X> ; (1)>>; 
Ea<FN; "CONS"> 

CONS<CONS<CAAR<X>; CADAR<X>>; 
APPEND<CDR<X>; (1)>>; 

EQ<FN; "ATOM"> 

CONS<ATOM<CAAR<X>>; APPEMD<CDR<X>; (1)>>; 
EQ<FN; "EQ"> 

CONS<EQ<CAAR<X>; CADAR<X>>; 

APPEND<CDR<X>; (1)>>; 

"T" APPLY2<CAR<EVAL2<FN;A>>; X; A>>; 
EQ<CAR<FN>; '*LAMBDA"> 

COM POSE <EVAL2<CADDR<FN>; 

PAI RLI S<CADR<FN>; CAR<X>; A>>; CDR<X>>; 
EQ<CAR<FN>; "l.ABEL“> 

APPLY2<CADDR<FN>; X; 

CONS<CONS<CADR<FN>; CADDR<FN>>; A>>>>; 



<ATOM<E> “* CONS<COR<ASSOC<E; A>>; "NIL">; 
ATOM<CAR<E>> 

<EQ<CAR<E>; "QUOTE"> CONS<CADR<E>; "NIL">; 
Fa<CAR<E>; "COND"> EVCON2 <CDR <E> ; A>; 

"T""' APPLY2<CAR<E>; EVLI S2<CDR<E>; A>; A>>; 
"T” ■* APPLY2<CAR<E>; F VI. I S2 <rPR<F> ; A>; A>>>; 



'FVCON2' &<<C; A>; ORAPHCON<FVAL2<CAAR<C>; A>; C; A>>; 
'ORAPHCON' &<<P; C; A>; 

<CAR<P> COMPOSE<FVAL2<CADAR<C>; A>; CDR<P>>; 

"T" COMPOSE<EVCON2<CDR<C>; A>; CDR<P>>>>; 

'EVLIS2' &<<L; A>; 

<NULL<L> "Nl L"; 

"T" COMBI NE<EVAL2<CAR<L>; A>; EVL I S2 <CDR<L> ; A>>>>; 



'COMPOSE* &<<X; Y>; CONS<CAR<X>; APPEMD<Y; CDR<X>>>>; 
'COMBINE' &<<U; V>; 

<MULL<V> CONS<COMS<CAR<U>; "MIL">; CDR<U>>; 

"T" CONS<CONS<CAR<U>; CAR<V>>; 

SUM<CDR<U>; CDR<V>>>>>; 
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oz 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 



*APPEffD* &<<X; Y>; <NULL<X> Y; 

" COMS<CAR<X>; APPEnrKCDR <X>; Y>>>>; 

'SU^f* ^«X; Y>; 

<ffULL<X> ^ Y; rfllLL<Y> X; 

"T" ^ COfIS<Ann<CAR<X>; CAR<Y>>; 

SIJM<CPR<X>; CDR<Y>>>>>; 

'PAIRLIS* &<<X; Y; A>; 

<ffULL<X> ^ A; ^ COfIS<rOMS<rAR<X>; CAR<Y>>; 

PAIRLIS<CPR<X>; CPR<Y>; A>>>>; 



'ASSOC' &<<X; A>; 

<EQ<CAAR<A>; X> ^ CAR<A>; "T" ^ ASSOC<X; CPR<A>>>> 



NULL' 


&<<L>; 


EQ<L; "NIL">>; 


CAAR' 


&<<L>; 


CAR<CAR<L>>>; 


CADR' 


&«L>; 


CAR<CPR<L>>>; 


CDAR' 


&<<L>; 


CPR<CAR<L>>>; 


CADOR 


' &<<L>; 


CADR<C0R<L>>>; 


CAPAR' 


' &<<L>; 


CAR<CPAR<L>>>>: 



♦ SAMPLE ARGUMERTS FOR EVALQUOTE 

<(LAREL PAIRLIS ( LAMBPA (X Y A) 

(COfID ((EQ X (QUOTE ffflJ) A) 

((QUOTE T) (COUS (COUS (CAR X) (CAR Y)) 

CPAfRLIS (CPR X) (CPR Y) A)))))); 

((A B) (1 2) ((C.3)))> 



♦ EVALUATfOfI BEGIfIS ♦♦♦♦*♦ 



RESULT IS: 

(((A.l) (B.2) (C.3)) 1424211) 



FREE STORAGE REMAMIIMG: 2768 

039.08 SECONPS IN EXECUTION 
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APPENDIX C 



TRANSLATION RULES 



Rules for translating programs: 

1. A function is translated by the rules for translating 
functions . 

2. <s-esp ; . . . ; s-exp> translates to (s-exp. . . s-exp) . 

Rules for translating functions: 

3. &<<X ; . . . ; XN>; form> translates to 

(LAMBDA (XI... XN) form*) where form* is the translation 
of a form. 

4. 3<FN; function> translates to (LABEL FN function*) 
where function* is the translation of a function. 

5. If a function is an argument, then it translates to 
(QUOTE function*) . 

Rules for translating forms: 

6. "X" translates to (QUOTE X). 

7. If the form is a parenthesized s-expression , then it 
translates to (QUOTE (s-exp) ) . 

8. function<argument ;. . . ;argument> translates ro 
(function* argument* ... argument*) , where argument* is 
the translation of an argument which can be a form or a 
function. 

9. <form -i f orra ; . . . ; form -• form> translates to 
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(COND (form* form*) ... (form* form*)) 
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SAMPLE PROGRAMS 



Program 



$$ 

$T 



1 

2 

3 

I* 

5 

6 
7 



a<PAIRLIS; &<<X;Y;A>; 

<EQ<X;"NIL"> ^ A; 

"T" ^ CONS<COfJS<CAR<X>;CAR<Y>>; 

PAI RLIS<CDR<X>;CDR<Y>;A>>>>> 



<(A B);(l 2);((C.5))> 



****** TRANSLATION FOLLOWS ****** 

(LABEL PAIRLIS (LAMBDA (X Y A) (COIID ( ( EQ X (OUOTE MID) A) ((OUOTE T) ( 
CONS (CONS (CAR X) (CAR Y) ) (PAIRLIS (CDR X) ( CDR Y) A)))))) 

((A B) (1 2) ((C.3))) 



****** evaluation begins ****** 

RESULT IS: 

(((A.l) (B.2) (C.3)) 1424211) 



PROCESSORS REQUIRED FOR OPTIMUM PARALLELING. 4 

EXECUTION STEPS (PARALLEL) 7 

EXECUTION STEPS (SEOUENTIAL) 15 

SPEED-UP RATIO ( SEQUENT I AL/ PARAL LE L ) 2.142857 

FREE STORAGE REMAINING: 15925 

002.96 SECONDS IN EXECUTION 
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I 



I 




Prograi 2 



1 * THIS FUNCTION PERFORMS MATRIX MULTIPLICATION. 

2 * - DOT PRODUCTS ARE COMPUTED BY PERFORMING SEQUENTIAL 

3 * ADDITIONS OF INTEGER PRODUCTS. 

>1 

5 &<<A;B>; 

G a<<MATMUL; ROW; DOT; NULL>; 

7 

8 MATMUL<A;B>> 

9 

10 <’MATMUL' a<<X;Y>; <NULL<X> "NIL"; 

11 "T" ^ CONS<ROW<CAR<X>; Y>; MATMUI.<CDR<X>; Y>>>>; 

12 

13 'now' &<<R;C>; <NULL<C> - "MIL"; 

Ik "T" "• CONS<DOT<R; CAR<C>>; ROW<R; CDR<C>>>>>; 

15 

16 'DOT' &<<U;V>; <NULL<U> ^ 0; 

17 "T" - AOD<MUL<CAR<U>; CAR<V>>; DOT<CDR<U>; CDP.<V>>>>>; 

18 

19 'NULL' &<<L>; EQ<L; "MIL">>>> 

20 

21 ‘SAMPLE INPUTS 

22 <((1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 D); 

23 ((1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1))> 

24 # 



****** evaluation begins **•♦** 

RESULT IS: 

(((4 4 4 4) (4 4 4 4) (4 4 4 4) (4 4 4 4)) 1 2 2 4 4 10 8 20 14 32 20 46 
26 53 29 53 29 45 25 31 19 19 13 10 8 5 5 3 3 2 2 1 1 1 1 1 1) 



PROCESSORS REQUIRED FOR OPTIMUM PARALLELING. 53 

EXECUTION STEPS (PARALLEL) 37 

EXECUTION STEPS (SEQUENTIAL) 549 

SPEED-UP RATIO ( SF.QUENTI AL/PARALLEL) 14.33784 

FREE STORAGE REMAINING: 11273 

019.56 SECONDS IN EXECUTION 
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y 










$A GRAPHING ARITHMETIC OPERATIONS ONLY 

1 * THIS FUNCTION PERFORMS MATRIX flULT I PL I CAT I ON. 

2 ♦ DOT PRODUCTS A1 E COMPUTED BY PERFORMING SEQUENTIAL 

3 * ADDITIONS OF INTEGER PRODUCTS. 

4 

%L SUPPRESS FUNCTION LISTING 

$L TURN ON LISTING FOR ARGUMENTS 

21 *SAMPLE INPUTS 

22 <((1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 D); 

23 ((1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1))> 

24 i 



EVALUATION BEGINS 
RESULT I S: 

(((4 4 4 4) (4 4 4 4) (4 4 4 4) (4 4 4 4)) 64 16 16 16 16) 



PROCESSORS REQUIRED FOR OPTIMUM PARALLELING. 64 

EXECUTION STEPS (PARALLEL) 5 

EXECUTION STEPS (SEQUENTIAL) 128 

SPEED-UP RATIO ( SEQUENT I AL/ PARALLEL ) 25.59999 

FREE STORAGE REMAINING: 11369 

016.35 SECONDS IN EXECUTION 



Pr ogram 4 



1 * THIS FUfICTIOfI PEnFORfIS MATRIX MULTI PLI TATI OM. 

2 * DOT PRODUCTS ARE COMPUTED BY PERFORM IMG PARALLEL 

3 * ADDITIOIIS OF PAIRS OF I HTEGER PRODUCTS. 

4 

5 &<<A;B>; 

G ?t<<IIATMUL; ROV/; DOT; SUM; REDUCE; VMUL; CADR; CDDR; UULL>; 

7 • 

8 IIATMUL<A;B>> 

9 

10 <’MATMUL' &<<X;Y>; <NUI.L<X> "MIL”; 

11 "T" " COMS<ROW<CAR<X>; Y>; HATMUL<CDR<X>; Y>>>>; 

12 

13 'ROW' ?i<<R;C>; <IIUI.L<C> '' "UIL"; 

14 "T" ■* CONS<DOT<R; CAR<C>>; ROVKR; CDR<C>>>>>; 

15 

16 'DOT' &<<tl;V>; SUIKVMUL<U; V>>>; 

17 

18 'SUM' ?i<<A>; <IIULL<CDDR<A>> ^ APD<CAR<A>; CADR<A>>; 

19 "T" ^ StlM<REDUCE<A>>>>; 

20 

21 'REDUCE' ft<<A>; <flULL<A> "IIIL"; flULL<CDR<A>> '' A; 

22 "T" •' COMS<ADD<CAR<A>; CADR<A>>; REDUCE<CDDR<A>>>>>; 

23 

24 'VMUL' &<<U;V>; <fJULI.<V> " "IIIL"; 

25 "T" ■' COMS<MUL<CAR<U>; CAR<V>>; VMUL<CDR<U>; CDR<V>>>>>; 

26 

27 'CADR' &<<L>; CAR<CDR<L>>>; 

28 

29 'CDDR' &<<L>; CDR<CDR<L>>>; 

30 

31 'HULL' &<<L>; EQ<L; "ill L">>>> 

32 

33 ‘SAMPLE INPUTS 

34 <((1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 D); 

35 ((1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1))> 

36 f 



****** evaluation begins ****** 

RESULT IS: 

(((4 4 4 4) (4 4 4 4) (4 4 4 4) (4 4 4 4)) 1 2 2 4 4 10 3 20 14 32 20 4 

2G 53 29 53 29 4G 26 34 22 25 19 21 18 21 18 24 21 28 25 28 27 26 29 2 

28 20 25 17 22 14 18 10 13 7 9 5 6 3 3 2 2 1 1 1 11 1) 



PROCESSORS REQUIRED FOR OPTIMUM PARALLELING. 53 

EXECUTION STEPS (PARALLEL) 59 

EXECUTION STEPS (SEQUENTIAL) 1045 

SPEED-UP RATIO (SEQUEMTI AL/PARALLEL) 17.71185 

FREE STORAGE REMAIIMNG: 6954 

038.90 SECONDS IN EXECUTION 
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I 

1 



f 







Program 5 



$A OnAPlilfir. AaiTIIMF.TIC OPERATIONS ONLY 

1 

2 ♦ THIS rilNCTIOM PERFORMS MATRIX M‘UI Tl PI. I 0 AT I ON. 

3 ♦ DOT PROONCTS ARE COITUTrO RY PPPrORrifT, PAPAI I FI 

k ♦ ' APOITIONS OF PAIRS OF I NTEOFR PPOOUrfS. 

5 

$L SUPPRESS FUNCTION LISTING 

$L LIST ARGUriENTS 

34 ^SAMPLE INPUTS 

35 <((1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 D); 

36 ((1 1 1 1) (1 1 1 1) (1 1 1 1) (1 1 1 1))> 

37 # 



♦♦♦♦♦♦ EVALUATION BEGINS 
RESULT IS: 

(((4 4 4 4) (4 4 4 4) (4 4 4 4) (4 4 4 4)) 64 32 16) 



PROCESSORS PEOUIPEP FOP OPTIMUM PARALLFLING. 64 

EXECUTION STEPS (PARALLEL) 3 

EXECUTION STEPS (SEQUENTIAL) 112 

SPEED-UP RATIO ( SEQUENTI AL/PARALI EL ) 37. 33333 

FREE STORAGE REMAINING: 7122 

031.96 SECONDS 111 EXECUTION 
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31 

32 

33 

34 

35 

36 
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• DIFFERENTIATE A POLYNOMIAL WITH RESPECT TO 

• ONE OF ITS VARIABLES. Sir!PLIEY THE RESULT. 

&<<P;X>; 'SIMPLIFY DERIVATIVE OF "P" V/.R.T. "X"' 

&<<CADR; CADDR; C0NS3>; 'DEFINE PRIMITIVES ON A-LIST* 
0<SIMP; &<<P>; 's'iMPLiEY FUNCTION* 

<ATOM<P> P; 

Mjll -• 

&<<P1; OP; P2>; 

<EQ<OP; "♦"> ” 

<EQ<P1; "0"> ■* P2; 

EQ<P2; "0"> ■' PI; 

"T" ^ C0MS3<P1; P2> 

>; 

"T" - 

<EQ<P1; "0"> ^ “O"; 

EQ<P2; "0"> ^ "0"; 

EQ<P1; "1"> - P2; 

EQ<P2; "1"> ^ PI; 

"T" - CO MS 3 < PI; P2> 

> 

> 

> 

<S1HP<CAR<P>>; CADR<P>; SI HP<CADPR<P>>> 

> 

>> 

< 'ARCUMEflT FOR SIMP' 

@<niEE; &<<P; X>; 'PERIVATIVE FUMCTION' 

<ATOH<P> ^ <EQ<P; X> - "1"; "T" ^ "0">; 

"T" ^ &<<P1; OP; P2>; 'MORE THAM OME TERM' 

<EQ<OP; "+"> ' 

COnS3<DIFF<Pl; X>; niFE<P2; X>>; 

"T" " COMS3<COMS3<niFE<Pl; X>; P2>; 

CONS3<niFF<P2; X>; Pl>>>> 

<CAR<P>; CADR<P>; CAPOR<P>>>>> 

<P; X> 'ARGUMEMTS FOR OIFF' 

> 'EMD OF SIMP AROUHEMT' 

> 

< 'PRIMITIVE DEFINITIONS' 

&<<X>; CAf<<CDR<X>>>; 

&<<X>; CADR<CDR<X>>>; 

&<<X; Y; Z>; CONS<X; CONS<Y; COMS<Z; "N1L">>>> 

> 'END PRIMITIVE DEFINITIONS' 

> 'END.' 

• SAMPLE ARGUMENTS WITH SYMMETRICALLY ORGANIZED 

• FOURTH-DEGREE BINOMIAL. 

<(((X ♦ Y) • (X + Y)) * ((X + Y) * (X + Y))); X> 
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I 

i 



i 

i 



****** evaluation begins ****** 



RESULT IS: 

((({(X ♦ Y) ♦ (X ♦ Y)) • ((X + Y) * (X + Y))) + {((X + Y) + (X + Y)) * ( 
(X + Y) * (X + Y)))) 13211264224 12 844884I4U4I4422 
2 2 2 2 1 1 1 1 3 3 4 4 7 7 11 11 18 18 23 23 20 20 14 13 11 9 8 7 6 6 C 
65 5 4 43322222222221111111 1) 



PROCESSORS REQUIRED FOR OPTIMUM PARALLELING. 23 

EXECUTION STEPS (PARALLEL) 81 

EXECUTION STEPS (SEQUENTIAL) 422 

SPEED-UP RATIO ( SEQUENT I AL/ PAR ALLEL ) 5.209876 

FREE STORAGE REMAINING: 11739 

016.96 SECONDS IN EXECUTION 
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Program 7 



$$ 

1 ♦ DIFFERENTIATE A POLYNOMIAL WITH RESPECT TO 

2 ♦ ONE OF ITS VARIABLES. SH'PLIFY THE RESULT. 

3 

$L SUPRESS FUNCTION LISTING 

$L TURN ON LISTING FOR ARGUMENTS 

56 * SAMPLE ARGUMENTS WITH ASYMMETRICALLY ORGANIZED 

57 * FOURTH-DEGREE BINOMIAL. 

58 

59 <((X + Y) ♦ ((X + Y) ♦ ((X + Y) ♦ (X + Y)))); X> 

60 * 



****** EVALUATIOfJ BEGINS ♦♦♦♦♦♦ 

RESULT IS: 

((((X + Y) ♦ ((X + Y) ♦ (X + Y))) ((((X + Y) ♦ (X + Y)) + (((X + Y) + 

(X + Y)) ♦ (X + Y))) ♦ (X + Y))) 13211264224855559635 
55522222111111111111111135447788 12 12 
13 12 14 14 18 18 17 16 13 15 11 11 8 7 5 4 4 4 4 4 4 4 3 3 3 5 3 3 2 2 
222211111111111111111111111 1 ) 



PROCESSORS REQUIRED FOR OPTIMUM PARALLELING. 18 

EXECUTION STEPS (PARALLEL) 112 

EXECUTION STEPS (SEQUENTIAL) 452 

SPEED-UP RATIO ( SEQUENT I AL/ PARALLEL) 4.035714 

FREE STORAGE REMAINING: 11532 

017.76 SECONDS IN EXECUTION 
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, i 



Program 8^ 



1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 



♦ EVAI.QIIOTE 
&<<FM; AROS>; 

’SUB-FUNCTIOM MAMES* 

A<<APPLY; EVAL; EVCOM; EVLIS; PAIRLIS; ASSOC; 

NULL; CAAR; CADR; CHAR; CAOPR; CAPAR>; 

'DEFINITION OF EVALQUOTE* 

APPLY<FN; ARCS; ”NIL*'>> 

'SUB-FUNCTION DEFINITIONS' 

<'APPLY’ &<<FN; X; A>; 

<ATOM<FN> 

<EQ<FM; ”CAR"> CAAR<X>; 

EQ<FN; "CDR"> CPAR<X>; 

EQ<FM; "CONS"> COUS<CAR<X>; CAPR<X>>; 

EQ<FN; "ATOM"> ATOM<CAR <X> > ; 

EQ<FN; "Ea"> EQ<CAR<X>; CAPR<X>>; 

"T" APPLY<EVAL<FN;A>; X; A>>; 

EQ<CAR<FN>; ”LAMBDA"> 

EVAL<CAnpR<FN>; PA I R LI S<rAPR<FN>; X; A>>; 
F.a<CAR<FN>; "l.AREL"> 

APPLY<CAPDR<FN>; X; 

CONS<CONS<CADR<FN>; rAnPP<FN>>; A>>>>; 

'EVAL' &<<E; A>; 

<ATOM<E> CnR<ASSOC<R; A>>; 

ATOM<CAR<E>> 

<EQ<CAR<E>; "QUOTE"> CADR<F>; 

EQ<CAR<E>; "COND"> E VCOrKCPR <E >; A>; 

"T"*' APPLY<CAR<E>; E VLI S<CPR<F>; A>; A>>; 

"T" APPLY<CAR<E>; EVL I S<CDR<E> ; A>; A>>>; 

'EVCOM' ^!<<C; A>; <MULL<C> "INIPEF I MED" ; 

EVAL<CAAR<C>; A> EVAL<CAPAR<r.>; A> 
"T" EVCON<CPR<C>; A>>>; 

'EVLIS' .^i<<L; A>; 

<NULL<L> "MIL"; 

"T" CONS<EVAL<CAR<L>; A>; FVL I S<CDR<L> ; A>>>>; 
'PAIRLIS' &<<X; Y; A>; 

<MULL<X> A; "T" COMS<COMS<CAR<X>; CAR<Y>>; 
PAIRLIS<CDR<X>; CPR<Y>; A>>>>; 



ASSOC<X; CPR<A>>>>; 



48 


'ASSOC 


' &<<X; 


A>; 


49 

50 


<FQ<CAAR<A>; X> CAR<A>; 


51 

52 


'HULL* 


^<<<L>; 


EQ<L; "MIL">>; 


53 

54 


'CAAR' 


^K<L>; 


CAR<CAR<L>>>; 


55 

56 


'CAriR' 


e(<<L>; 


CAR<ron<i >>>; 


57 

58 


'rPAR' 


^i<<L>; 


CnP<CAR<L>>>; 


59 

GO 


'CAfipR 


' A<<L> 


; rApn<cnR<L>>>; 


61 


'CAIiAR 


' f.<<L> 


; CAR<rnAR<L>>>>> 
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I 

I 



I 



I 



0 3 

64 * SAMI’Li: ARGUMEIITS FOR EVALO.UOTE 

65 

66 <(I.AttEL PAIRLIS (LAMBDA (X Y A) 

67 (COIID {{EQ X (QUOTE MID) A) 

68 ■ ((QUOTE T) (CONS (COMS (CAR X) (CAR Y)) 

69 (PAIRLIS (CPR X) (CDR Y) A)))))); 

70 ((A r.) (1 2) ((C.3)))> 

71 # 



evaluation begins ****** 

RESULT IS: 



(((A, 


,1) 




(B, 


, 2) 




(C. 


3)) 


1 


1 


1 


1 


1 


3 


3 


2 


1 


1 


1 


1 


1 


2 


2 


2 


4 


2 


4 


2 


4 


2 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


2 


1 


2 


2 


3 


3 


2 


2 


2 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


2 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


2 


1 


2 


2 


3 


3 


2 


2 


2 


2 


2 


k 


3 


5 


5 


5 


5 


6 


6 


6 


5 


8 


6 


8 


7 


6 


6 


5 


5 


5 


5 


5 


5 


3 


3 


3 


2 


2 


2 


2 


2 


2 


2 


2 


2 


2 


2 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


2 


2 


2 


4 


2 


4 


2 


4 


2 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


2 


1 


2 


2 


3 


3 


2 


2 


2 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


2 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 
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2 
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1 
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1 


1 
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2 


2 


4 


2 


4 


2 


4 


2 


1 


1 


1 


1 


1 


1 


1 


1 


1 
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1 
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1 


1 


1 


1 


1 


1 


1 


2 


1 


2 


3 


3/ 


2 


2 


2 


1 


1 


1 


1 


1 


1 
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1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


2 


1 


1 


1 


1 


1 


1 


1 


1 


2 


1 


1) 



































PROCESSORS REQUIRED FOR OPTIMUM PARALLELING. 8 

EXECUTION STEPS (PARALLEL) 405 

EXECUTION STEPS (SEQUENTIAL) 754 

SPEED-UP RATIO (SEQUENTI AL/PARAI.LEL) 1.861728 

FREE STORAGE REMAINING: 8349 

032.12 SECONDS I II EXECUTION 
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APPENDIX E 



00 00 1 - 
0001 — 
0001 
0001 
0001 -- 
0001 — 
0001 
0001 
0001 
0001 — 
0001 — 
0001 -- 
0001 - 
0001 -- 
0001 — 
0001 
0001 -■ 
0001 
0001 -- 
0001 
0001 -- 
0001 — 
0C01 
0001 
0001 — 
0001 -- 
0001 -• 
0001 — 
0001 -- 
0001 -- 
0001 
0001 -- 
0001 - 
0001 - 
0001 -- 
0001 — 
0001 -- 
0001 -• 
0001 — 
0001 
0001 — 
0001 - 
0001 -- 
0001 -- 
0001 — 
0001 
0001 — 
0001 -- 
0001 -• 
0001 -- 
0001 
0001 — 
0001 — 
0001 
0001 
0001 — 
0002 -- 

0003 — 

0004 -- 

0005 
0005 - 
00 05 - 
0005 - 

0005 

0006 -- 

0007 -- 

0008 - 
00 08 - 
0009 -- 

0009 — 

0010 
0011 
0011 
00 12 
0012 
00 13 
00 14 

0014 
00 15 

0015 
00 16 

0016 
0017 - 
0017 -• 
0017 - 
0013 



B2GIJI 

* 



AL30L-W INTERPRETER 

COMMENT 

E7ALQOOTE2 



27ALQOOTE2 IS AN AL30L-W PHOGHA.1 DESIGNED TO 
THANSLATE AND INTERPRET INPDT ?ROGRA:iS ;?RITTSN 
IN THE HSTA-LANGO AGE 0? PURE LISP. DURING 
INTERPRETATION, EVALQUOTET ANALYSES THE DATA FLOW 
THROUGH THE LISP PROGRAM AND GENERATES A VECTOR 
DESCRIBING THE DATA ?L07 GRAPH. 

ORGANIZATION 

THE PROGRAM HAS 3E-SN LOGICALLY DI7IDSD INTO EL3VS! 
SECTIONS. 



* 



* 

♦ 4c3k 4t 4t 



I : 


GLOBAL DECLARATIONS 


II : 


PRIMITIVES 


III : 


STORAGE MANAGEMENT 


17 : 


INPUT SUPPORT 


V : 


PROPERTY LIST ACCESS 


VI ; 


INITIALIZATION 


VII ; 


TRANSLATION 


VIII: 


INTERPRETATION 


IX : 


ERROR HANDLING 


X : 


OUTPUT 


XI : 


MONITOR 



4c4c4c4c4c 4(4(4( :k4c4c4(^4c«4c4c4(:«4c««^4c 4t4c4c4( 



4« 

^ SECTION I: GLOBAL DECLARATIONS 



4t 



K^«4c4c4i*4c4(««4(4i*4c4(4(4c4c«4i*4c4c4c4i-«^4t4i«4(:*c4c4(4c4c4c4c^4t:^4cx4c4t4i4c4t4(«4c-<c«x4c4e4c4t. 



INTEGER ?LH: COMMENT ERSE LIST HEADER: 

INTEGER LENGTH; COMMENT THE LENGTH 0? THE CURRENT TO 

INTEGER IBP; COMMENT THE INPUT 3UEEER POINTER; 

INTEGER LINE^NO; COMMENT THE INPUT LINE NUMBER; 

COMMENT THE FOLLOWING ARE THE LOCATIONS OF THE ATOM HE 
CELLS Or THE RESERVED WORDS OF THE LISP LANGUA 

INTEGER LAMBDA, LABEL, COND, QUOTE; 

INTEGER ICAR, ICDR, ICONS, lEQ, lATOM, lADD, IMUL; 
INTEGER PNAME, T, ?, NIL; 

INTEGER CONSTANT, IDENTIFIER, SPECIAL, NUMS ; 

COMMENT TOKEN CATEGORIES; 

INTEGER TYPE: COMMENT TOKEN CATEGORY OF CURRENT TOKEN; 

INTEGE.R HEADER; COMMENT PTR TO ATOM HEADER CELL OF TOK ; 

STRING (1) C, NC; 

COMMENT CURRENT AND NEXT CHARACTER IN INPUT STREAM; 
STRING (90) EOF; COMMENT THE INPUT BUFFER; 

— RING 72) — " 



KEN; 



ADER 

GE; 



STR] 



TOK; COMMENT THE CURRENT TOKEN; 



LOGICAL FLAGS, LIST, TRAN3, AHITH; 

COMMENT COMPILER TOGGLES; 

LOGICAL INTRANS; 

COMMENT INDICATES IF IN TRANSLATION OR INTEEPRETATI 
LOGICAL COLLECTED; 

COMMENT INDICATES I? HASH TABLE HAS BEEN FREED; 

BITS ARRAY M(0;: 16383); COMMENT WORKSPACE; 



ON ; 
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k 



I 

i 



I 



0018 


— 


0018 


— 


0013 


— 


0018 


— 


0018 


— 


0018 


— 


00 13 


— 


0019 


— 


0019 


— — 


0020 


— 


0020 


— 


0021 


— — 


0021 


— 


00 22 


— 


0022 


— 


0023 


— 


0023 


— 


00 24 


— 


0024 


— . 


0025 


— 


0025 


— — 


00 26 


— 


0026 


— — 


00 27 


— — 


0027 


2- 


0029 


— 


0030 


— 


00 32 


— 


0032 


-2 


00 33 


— 


00 33 


— 


0034 


— 


0035 


— 


0035 


— 


00 36 


— 


0036 


— 


0037 


— — 


0037 


— 


0038 


— 


0038 


— 


0038 


2- 


0039 


— — 


0040 


— 


0041 


— — 


0041 


-2 


0042 


— 


00 42 


— 


0043 


— — 


0043 


— 


0043 


2- 


00 44 


— — 


0045 


— — 


0046 


— 


0046 


-2 


0047 


— — 


0047 


— 


0048 


— 


0049 


— — 


0049 


— — 


0050 


— — 


00 51 


— 


0051 


— 


0052 


— — 


00 53 


— 


0053 


— 


0054 


— 


0055 


— — 


0055 


— — 


0056 


— 


0057 


— 


0057 


— — 


0058 


— 


0058 


— — 


0059 


— — 


0059 


— — 


0060 


— — 


0060 


— — 


0061 





^ * 

» SECTION II: PRIMITIVES ^ 

<c * 

:«C3:t :<c :» :}c:«c :<c :>c 4c:?e :* :* :^t aji :4c X* J^i ;*:^e * :}c it ^ :«c 5(i :» :^f* T^ti • 

PHOCEDURE SETCDR fINTSGSR V^LUS X, I) ; 

COMMENT SET THE D aSGISTER 0? CELL AT X TO VALUE T; 
i(X) := (M(X) AND #??F?0000) OR BITSTRING (Y) ; 

PROCEDURE SETCAR (INTEGER VALUE X, Y) J 

COMMENT SET THE A REGISTER OP CELL AT X TO VALUE Y: 

M(X) ;= (M(X) AND #FFFF) OR ( BITS TRING ( Y) 5HL 16); 

INTEGER PROCEDURE CDR (INTEGER VALUE N) ; 

COMMENT EXTRACT THE D REGISTER CONTENTS; 

NUMBER (M(N) AND #FFFF) ; 

INTEGER PROCEDURE CAR (INTEGER VALUE N) ; 

COMMENT EXTRACT THE A REGISTER CONTENTS; 

NUMBER (M(N) SHR 16); 

INTEGER PROCEDURE CONS (INTEGER VALUE X, Y) ; 

COMMENT ADD X TO FRONT OP LIST AT Y; 

BEGIN INTEGER A; 

A := ALLOCATE; 

SETCAR (A/X) ; SETCDR (A,Y) ; 

END CONS; 

LOGICAL PROCEDURE SQ (INTEGER VALUE X, Y) ; 

X = Y; 

LOGICAL PROCEDURE ATOM(INTSGSR VALUE X) ; 

COMMENT RETURN TRUE I? CAR(X) IS CHARACTER ATOM CELL; 
M(X) SHH 17 = ^OOOOVFPF; 

INTEGER PROCEDURE ADD (INTEGER VALUE X, 1 ); 

COMMENT RETURN POINTER TO NEW CONSTANT ATOM CONTAINING 
SUM OF CONSTANT ATOMS X AND Y; 

BEGIN 
X 
Y 

BUILD 
END ADDT 

INTEGER PROCEDURE MUL (INTEGER VALUE X, Y)_ ; 

COMMENT RETURN POINTER TO NEW CONSTANT ATOM CONTAINING 



:= NUMBER (M (CDR (X)) ) ; 
:= NUMBER (M (CDR (Y) ) ) ; 
fILD C ATOM(X + Y) 



BEGIN 
X 
Y 

3UI__ 

END mult 



PRODUCT OF CONSTANT ATOMS X AND Y; 



:= NUMBER (M (CDS (X)) ) ; 
:= NUMBER M (CDrJy ) ; 
ILD C ATOM(X Y) 



X) ; 



INTEGER PROCEDURE CAAR (INTEGER VALU2 
CAR (CAR (X) ) ; 

INTEGER PROCEDURE CDAR (INTEGER VALUE X); 

CDR (CAR (X) ) ; 

INTEGER PROCEDURE CADR (INTEGER VALUE X) ; 

CAR (CDR (X) ) ; 

INTEGER PROCEDURE CADDR (INTEGER VALUE X) ; 
CADR (CDR (X) ) ; 

INTEGER PROCEDURE CADAR (INTEGER VALUE X ) ; 
CAR (CDAR (X) ) ; 

INTEGER PROCEDURE C0NS3 (INTEGER VALUE X,Y,Z); 
COMMENT PLACE X AND Y ON LIST AT 2; 

CONS (X,CONS (Y,CONS (2, NIL) ) ) ; 

LOGICAL PROCEDURE N UL (INTEGER VALUE X) ; 
COMMENT IS LIST EXHAUSTED; 

X = NIL; 
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I 

I 



I 



0061 

0061 

0061 

0061 

0061 

0061 

0061 

0062 

0062 

0063 

0064 

0065 

0065 

0066 
0066 
00 66 
00 67 
0068 

0069 

0070 

0071 

0072 

0073 

0073 

0074 

0074 

0075 

0075 

0076 

0077 

0078 

0079 

0079 

0080 
0080 
0080 
0081 
0082 
0083 
00 34 
0085 

0085 

0086 
0087 

0087 

0088 
0088 

0089 

0090 

0091 

0092 
0092 

0092 

0093 

0094 

0095 

0096 

00 97 

0098 

0099 

0099 

01 00 

0100 
0102 
0104 

0104 

0105 

0106 

0107 

0108 
0108 
0109 
0109 
0109 
0109 
0109 
0109 
0109 
0109 
01 10 
01 10 
01 11 
01 12 
0113 
01 14 
01 14 
01 15 
01 15 



2 - 



3- 



4- 



•4 

-3 



-2 



2 - 



-2 



-2 



2 - 



-3 



3- 



-3 

-2 



2 - 



3- 



-3 

-2 



2 - 



-2 



COflClENT** ** ^^^***^***** ^^**^^***^ ***^*^ ****** ^^'****^ ^^**^*** 

* SECTION III: STORAGE :iANAG2MENT ^ 

♦ * 
^:^^ ^^:^^*^:^■*^****^** ********** *^* ******************************* ; 



INTEGER PROCEDURE ALLOCATE: 

COKHENT ALLOCATE ONE CELL; 

BEGIN 

INTEGER X; 

X := CDR (?LH) ; 

I? X = NIL THEN 
BEGIN 

I? INTEANS OH COLLECTED THEN 
ERROR (2) 

ELSE 

BEGIN 

EREE HASH TABLE; 

X ;='CDR(7LH); 

END; 

END; 

SETCD3 (FLH, CDR (X) ) ; 

END ALLOCATE; 

PROCEDURE FREE (INTEGER VALUE XI; 

COiMHENT RELEASE CELL AT X TO FREE LIST; 
BEGIN 

A (X) : (FLH) ; 

il ?LH) :=3ITSTRING (X) ; 

END FREE; 



PROCEDURE FREE A LIST (I NTSGER VALUE ?,A); 

COMMENT FREE^OUTDATED PORTION 0? A_LISTr 
I? ? A THEN 
BEGIN 

FREE A LIST (CDR (?) , A) ; 

FREE7CXR (?) ) ; 

FREE (?) ; 

END; 



PROCEDURE FREE HASH TABLE; 

BEGIN 

PROCEDURE FREE ST ACK (INTEGER VALUE I) ; 
I? I NIL THEN 
BEGIN 

FREE STACK (CDR (I) ) ; 

FHEBTD ; 

END; 



FOR I := 26 UNTIL 153 DO 
BEGIN 

FREE STACK (CDR (I) ) ; 

?REE"STACK (CAR (I) ) ; 

FRE3TI) ; 

2ND; 

COLLECTED := TRUE; 

END FRBE^HASH^TABLE; 

INTEGER PROCEDURE FREE CELLS; 

COMMENT RETURN SIZE OF FREE STORAGE; 
BEGIN INTEGER ?TR, COUNT; 

?TR := CDR(FLH)_: COUNT := 0; 

WHILE PTR Nil DO 
BEGIN 

COUNT := COUNT + 1 ; 

PTR := CDR (PTR) ; 

END; 

COUNT 

END FREE CEILS; 



COMM ENT* * ********* ******^**** :^^**:^:*:t^** *M**:^3f**** ** *'^^*T****ilt 

* * 

* SECTION IV: INPUT SUPPORT * 

♦ ♦ 



INTEGER PROCEDURE BUILD C ATOM (INTEGER VALUE A); 

COMMENT CREATE AT0M”HEADER STRUCTURE FOR CONSTANT A; 

BEGIN 

INTEGER C; 

C ALLOCATE: 

M(C) := BITSTRING (A) ; 

CONS (NUMBER (i^FFFE) , C) 

END BUILD C ATOM; 
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I 



f 





01 15 


— 


01 16 


— 


01 17 


— 


01 17 


— — 


0117 


2- 


01 18 


— 


01 18 


— — 


01 19 


— 


0120 


— — 


0120 


— — 


0120 


3- 


0121 


— — 


0122 


— 


01 22 


— — 


0123 


— — 


0124 


— 


0124 


— 


0125 


— — 


01 25 




0126 


— 


01 27 


— 


0128 


— 


01 29 


— 


0129 


4- 


0130 


— — 


0131 


— — 


01 32 


— — 


01 33 


-4 


01 33 


— 


0134 


4- 


01 35 


— 


01 36 


— — 


0137 


— — 


01 30 


-4 


01 39 


— 


01 39 


-3 


01 40 


— 


0140 


— 


01 41 


— 


0142 


— 


0142 


-2 


01 43 




0 143 


— 


01 44 


— — 


0145 


— — 


01 45 


— 


0145 


2- 


0146 


— 


0147 


— — 


0148 


— 


0149 


— 


0150 


— 


0150 


-2 


0151 


<•— 


0151 




0152 


— — 


0152 


— — 


01 53 




0153 


— 


0153 


— — 


01 53 


— — 


01 53 


— 


0153 


— 


01 53 


— 


01 53 


— — 


0 1 54 


— — 


0154 


— 


0154 


2- 


01 55 


— 


0156 


— 


0157 


— 


01 57 


3- 


0158 




0159 


— — 


01 60 




0161 


-3 


0162 


— 


0162 


-2 


01 63 


— 


01 63 


— 


0163 


— 


0165 


— — 


0166 


— 


0166 
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PHOC2DOR2 30ILD AT0I5 (STHIMG (72) VAL03 WORD; 
I>ITHGHR“V ALUS A,B); 

COaMENT CHEATS AT03 HEADER STHUCTURS FOR WORD OP 



LENGTH A 
3EGIN 



AT LOCATION 3; 



INTEGER PR0C2DURE 30ILD PNAK2 (STRING (72) VALUE WORD; 
INTEGER VALUE AJ?) ; 

COMMENT CONSTRUCT CELLS TO HOLD CHARACTERS OP WORD 

STARTING AT LOCATION P FOR 4 LETTERS OR UNTIL A; 
BEGIN 

INTEGER 3,C; 



PROCEDURE INSERT CHAR (STRING ( 1 ) VALUE LTR; 

INTEGER VALUE A) ; 

LTR IN CELL A.* 

8) 0R‘3ITSTRING ( DECODE ( LTR) ) ; 



CCaaSNT INSERT 
a (A) (K (A) SHL 



3:=ALLOCATE; 

C:=ALLOCATE; 

SETCAR (B,C) ; 
a (C) : =#0; 

I? (A-P) < 5 THEN 
BEGIN 

SSTCDR (3,NIL) : 

FOR l:=p UNTIL 
FOR I:=1 UNTIL 
END 

ELSE 

BEGIN 

FOR I:=? UNTIL 

P;=p+4; 

SETCDR (B, BUILD ? NA ME ( WORD , A , ?) ) ; 
END; 



(A-1) DO INSERT CHAR (WORD (I | 1) , C) 
(4+P-A) DO M (C) T=M (C) SnL 3; 



(P+3) DO INSERT^CHAR (WORD (I j 1) ,C) 



B 

END 



IF A 
a(B) 






BUILDUP NAME; 

0 THEN ERROR (3) ; 



:= M(B) OR #FFFF0000 ; 



SETCDRjB .CONS (?NAME,CONS (BUILD PNAM E ( WO RD , A, 0) , NIL) )) 
END BOILD^ATOM; 

INTEGER PROCEDURE HASH (INTEGER VALUE ACCL; 

STRING (72) VALUE ACCUM) ; 

COMMENT COMPUTE AND RETURN HASHED VALUE OF TOR IN 
ACCUMULATOR GIVEN TOK LENGTH; 

BEGIN 

INTEGER SUa,H; 

S0M:=0; 

FOR I: = 0 UNTIL ACCL-1 DO S UM : = SUM+ DECOD £ (ACCUM ( I M )) ; 
H:= 26+SUM REM 123; 

H 

END HASH; 






Ci f 



PROCEDURE PUSH (INTEGER VALUE X, I 
COMMENT PUSH ATOM ONTO HASH “ 

SETCDR (I ,CCNS (X,CDR (I) ) ) ; 

^ * 

* SECTION 7: PROPSRTT LIST ACCESS * 

^ * 

AtAi » At, At At At At tk At ^ At At * ^ Ai'AfSt if At At At At • 



INTEGER PROCEDURE FIND VALUE ( INTSG 3R 
COMMENT SCAN PROPERTY LIST OF AT 
VALUE OF ATTRI3: 

3EGIN 

INTEGER ?; 

P := CDR (EEADE?) ; 

WHILE CAR(?) ATTRI3 DO 

BEGIN 

I? CDR(P) = NIL THEN ERROR (1); 
P := CDR (CDH (?) ) ; 

IF P = NIL THEN ERROR (1) ; 

END; 



VALUE HEADER, ATTRI3) 
OM AT HEADER FOR 



END 



IID^VALUE; 



PROCEDURE GST PNAMS (INTEGER VALUE 1 ; STRING (72) 
INTEGER RESULT LENGTH) : 

17.MT G7T PR TNT NAME AND Ll 



COMMENT GET PRINTNAi 
BEGIN 



AND LENGTH OF ATOM AT 



RESULT 

X: 



3UFF; 



PROCEDURE GET CHARS (INTEGER VALUE X); 

COMMENT EXTRACT CHARACTERS FROM CELL AT X; 
FOR J:=0 STEP 8 UNTIL 24 DO 
BEGIN INTEGER N; 

N := NUMBER((M(X) SHL J) SHR 24); 

N > 0 THEN 
3 EG IN 



I? 



BUFFfLENGTHI 1) := CODE (N) ; 

LENGTH ;= LENGTH+1; 



END; 

END GET CHARS; 
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I 



0176 

0176 

0177 

0178 

0179 
0179 
01 80 
01 31 
0182 

0183 
01 84 

0184 
01 84 
01 84 
01 34 
0134 
01 84 

0184 

0185 

0185 
0196 

0186 
0187 
01 37 

0187 

0188 
0138 
01 89 
0190 
0190 

0190 

0191 

0192 

0193 

0193 

0194 

0195 

0196 

0196 

0197 

01 98 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

02 06 

0207 

0208 

0209 

0210 
0211 
0212 
02 12 
02 13 
0216 

0217 

0218 
0218 
02 18 
02 19 
0220 
0221 
02 22 
0222 
0222 

0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 
0237 

0237 
02 33 
0233 

0238 

0239 
02 40 

0241 

0242 

0243 

0244 



3- 



-3 

-2 



2 - 



3- 



4- 



-4 



L2HGTH := 0; 

3UF? := “ 

X := FIND VALaS (X.PNA^E) ; 

WHIL2 X -.S NIL DO 
BEGIN 

GET CHARS (CAR (X) ) ; 

X := CDR(X) ; 

2ND; 

END G2T.PNAME; 

COMMENT^*’’**** 

♦ * 

♦ SECTION VI: INITIALIZATION * 

♦ V 

♦ :*C3»t3*t***^^»«3*t*5ic**:|t***^***^*3*c*****^***:»tit**ije:*t:<c3c***4t:<c:»3)t*^:X^#^3)t**- 

PROCEDDRE INITIALIZE: 

COMIIENT INITIALISE lENORY SPACE; 

BEGIN 

PROCEOaRE setrsswds; 

COaaENT INITIALIZE RESERVED VORDS AND 
PREDEFINED FUNCTIONS; 

BEGIN 

PROCEDURE SET^ORD (STRING (72) VALUE WORD; 

INTEGER VALUE LENGTH, ADDR) 



PLACE RESERVED WORDS IN 
-D ATC<^ HEADER STRUCTURE 



HASH TABLE AND 
AT ADDR; 



coaasNT 

3DII 
BEGIN 

INTEGER VAL; 

7AL := HASH(LENGTH, WORD) ; 

CCa^IENT PLACE RESWORDS ON CAR SIDE OF HASH TABLE 
S ETC AH (VAL, CONS ( AD DR , CA R ( 7 AL)^ ) ) ; 

BUILD ATOH(WOHD, LENGTH, ADDR); 

END BET WORD; 



SZTWORD 

SETWORD 

SETWORD 



— 


SETWORD 


— — 


SETWORD ( 


— — 


SETWORD ( 


— 


S ETWO RD ( 


— 


SETWORD ( 


— — 


SETWORD ( 


— 


SETWORD ( 


— 


SETWORD ( 


— 


SETWORD( 


— 


SETWORD [ 


— — 


SETWORD ( 


— 


SETWORD ( 


-3 


END SHTR 


— 


C := NC := " 


— 


FLH := 0: L 


— 


LIST := TRUE 


•• 


COLLECTED 


— 


COHHENT INIT 


— 


NUas : 


— 


IDENTIFIER : 


— 


SPECIAL 




CONSTANT : 


— 


COaaZNT INIT 


— — 


PNAHE := 1; 




T := 5 


— — 


F := 6; 


— — 


NIL := 7; 


— 


LAH3DA := 3; 


— 


LABEL := 9: 


— 


COND := 10 


— 


QUOTE := 11 


— 


ICAR := 12 


— 


ICDR ;= 13 


— 


ICONS := 14 




ISQ := 15 


— — 


lATOM := 16 




laUL := 17 




lADD ;= 18 


-- 


COaaSNT PLAC 




FOR I: = 26 UN' 


— 


COdHENT INIT 


— — 


FOR I;=154 U 


— 


a ( 163 93) : =*7 


— - 


a]0) := 3ITST 
SCANNER: 





® N A H E '* 

n*^ff 
ft p If 

"NIL" 
"LAHSDA' 
"LABEL" 
"COND" 
"QUOTE" 
"CAR" 
"CDR" 
"CONS " 
« 20 " 

"AT OH" 
"MUL" 
"ADD" 
SSWDS ; 



f 1) 

^ 5 

, 7) 

, 10 
/ 1 1 
, 12 
f 13 
f 14 
. 15 
, 16 
/ 17 
, 13 



:= 0; 13? := 30; 



= 0 
= 1 
= 2 
3 



h'(I) := *00070007 ; 

^REE LIS'^* 

(!)":= BITSTRING (1+ 1 ) ; 



-9 



SETRESWDS ; 

END INITlklZS; 
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0248 
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02 49 
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0250 
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0251 


— 


0251 


— 


0251 
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0252 
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0252 




0252 
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0253 


— 


0253 


— 


02 53 


- — 


0254 


— 


0255 


— 


02 56 


— — 


0258 


— 


0258 
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0259 


— 


0259 
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0260 


— 


0261 


— — 


0261 
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0262 


— — 


02 63 


- — 


02 64 


-7 


02 64 


— 


0265 


7- 


0267 


— — 


02 68 
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0269 


— 


02 70 


-7 


0271 


-6 


0272 


— 


0272 
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0273 


— 


02 73 




0274 


— 


02 74 


-5 


0275 


— 


0275 


— — 


02 76 


— 


0277 


-4 


02 7S 


— — 


02*78 


— 


0279 


— 


0279 


4- 


0280 


— 


0281 


— 


0282 


— 


0233 


— — 


0233 


-4 


02 84 


— 


02 34 


— 


0285 


— — 


0286 


— 


02 87 


— — 


02 88 


— 


0288 


-3 


02 39 
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0239 
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02 90 
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0290 


— 


0290 


— 


02 90 


— 


02 90 
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0291 
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COMMENT** 

♦ ‘ ^ 

* SECTION VII: SCANNER * 

* ^ 
4c4e:)c;4(;»:«(4i*:4c:^4c**4K4c:v)^^:«:4c4e-4(:4c :4c^ 4c4c 4c4c 4c4(*4c«:«4c4c4c:|ctt4i4c3e;)e3)c4i4e3»c;4c#:jc:ic^:4e4c^^3»^ > 

PROCEDQRE SCANNER: 

COMMENT SCAN INPUT STREAM ?OR NEXT TOX, ASSIGN 

TYPE, AND 3UILD ATOM HEADER CELL IF REQUIRED; 

BEGIN 

PROCEDURE GNC; 

COMMENT GET NEXT CHARACTER FROM INPUT; 

BEGIN 

PROCEDURE BUMP IBP; 

COMMENT INPUT BUFFER POINTER; 

BEGIN 

PROCEDURE READBU?; 

COMMENT INPUTS NEXT RECORD, OUTPUTS 

LISTING, MONITORS COMMENTS AND FLAGS; 

BEGIN 



PROCEDURE SET FLAGS (STRING (1)^ VALUE A); 
COMMENT AlTSa THE APPROPRIATE FLAG; 

IF A = '*S»* THEN FLAGS ;= -^FLAGS 

ELSE IP A = '*L‘» THEN LIST:=-LIST 

ELSE IF A = ‘*T'* THEN TRAN S : =-»TRANS 

ELSE IF A = '»A'» THEN ARITH:=-iARI?H 

ELSE WRITE ('‘INVALID FLAG CALLED ::'»,A); 

PROCEDURE GETCARD; 

COMMENT READ AND LIST A DATA CARD; 

BEGIN 

READCARD (BUF) ; 

I? 3U?(0|1) = “S’* THEN 

BEGIN 

SET FLAGS (3U? (1 M) ) ; 

I? FLAGS THEN WHITE (5UF); 

END 

ELSE 

BEGIN INTFIELDSIZE := 4; 

LINE NO LINE NO + 1 ; 

IF LIST THEN WRITE{LINS NO,'» ",3U?); 

INTFIELDSIZE := 14; 

END ; 

END GETCARD; 

GETCARD; 

WHILE (3U?(0 M) ='»*'*) OR (5UF (0 }1) =“ £'*) DO 
GETCARD ; 

I3P:=0 

END R3ADBUF; 

I3P:=IBP+1 : 

I? IBP >= 30 THEN READ3UF; 

END SUMP^IBP; 

PROCEDURE SKIP COMMENT: 

COMMENT SKI? OVER COMMENTS IN INPUT; 

BEGIN 
BUMP IBP; 

WHILE BU?(I3P|1) -1= '**'* DO BUMP IBP; 

BUMP IBP: 

C: = 3UP (I3?f 1) 

END SXiP^COMMENT; 

I? IBP>=80 THEN BUMP 13?: 

C: = BU?(I3P] 1) ; 

T? SKI? COMMENT; 

BUMP IBP; 

MC:=3UF (IBP I 1) 

END GNC; 

PROCEDURE LOOK OP; 

COMMENT DETERMINE IF TOK HAS ALREADY BEEN 
STORED. IF NOT, CREATE ATOM HEADER CELL 
AND PNAME ATTRI3UT E- VALUE PAIR. RETURN POINTER 
TO ATOM HEADER CELL; 

BEGIN 

INTEGER ADDR; 
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LOGICAL PHOC2DOR2 STORED (INTEGER 7ALUE H) : 

CCaaEMT DETERMINE 17 ATOM HEADER CELL EXISTS— 
IF SO^ ASSIGN HEADER; 

BEGIN 

STRING(72) WORD; 

INTEGER LSNGTH1; 

LOGICAL FLAG; 

IF H = NIL THEN FLAG := FALSE 
ELSE 

BEGIN 

GET PNAME (CAR (H) , ^?ORD, LENGTHl) ; 

IF TOK = JORD THEN 
BEGIN 

HEADER CAR (H) ; 

FLAG := TROE 
END 

ELSE FLAG := STO R ED (CDR (H) ) ; 

END ; 

FLAG 

END STORED; 

ADDR := HASH (LENGTH, TOK) ; 

IF (STORED (CDR (ADDR) ) OR STORED (CAR (ADDR) ) ) THEN 
BEGIN 

READER: ^ALLOCATE: 

BDILD ATOM(TOK, LENGTH, HEADER) ; 

POSH (HEADER, ADDR); 

END 

END LOOK □?; 



PROCEDURE BUILD TOK: 

COMMENT ADD*NSXT CHARACTER TO TOK; 
BEGIN 

I? LENGTH >= 72 THEN SYN ERR(l) ; 
TOK(LENGTH| 1) : = C; 

LENGTH:=LENGTH>1; 

END BUILD^TOK; 

COMMENT MAIN OF SCANNER; 

LENGTH := 0; 

TOK := •* 

I? C<’»A« THEN 
BEGIN 

j p* (3 = ti fi II II ""HEN 

BEGIN 

NHILE NC- = '*'*"‘* DO 
BEGIN 
GNC: 

BUILD TCK; 

END; ^ 



GNC; 

TYPE := CONSTANT; LOOK UP; 

END 

ELSE I? ((C = '*#'M OR (C='»<'») OR 
(C=‘»&»») OR (C='*C*) OR 
= OR (C=‘» 'M OR 

BEGIN 

TOK C; TYPE := SPECIAL; 

END 

ELSE 

BEGIN 

TCK := C; TYPE := IDENTIFIER; 

LENGTH := 1; LOOK UP 

END 



(C=it>«) 


OH ( 


C = ’*) ’* 


OR ]' 




) THE 



END 



^LS E 

I? (C> = '*A«) AND (C< = ’*Z") THEN 
BEGIN 

WHILE NC >= **A" DO 
BEGIN 

BUILD TOK; 

GNC; ' 

END; 

BUILD TOK; 

TYPE:=IDENTIFISR; 

LOOK UP; 

END ' 

^LSE 

I? C> = '’0” THEN 

BEGIN INTEGER SUM; 

SUM : = 0; 

WHILE NC >= DO 

BEGIN 

SUM ;= lO’^SUM (DECODE (C) - 2ii0) 

IF SUM > (MAXINTEGER DIY 10) THEN 
GNC; 

END; 

SUM := lO^^'SUM + (DECODE(C) - 240); 
TYPE:=NOMS: 

HEADER := BUILD C ATOM(SUM); 

END 

ELSE 

SYN ERR (3) ; 

GNCT 

WHILE C='* '» DO GNC; 

END SCANNER; 



SYN^ERR (2) ; 
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C0Ril2NT** sjc ;jc :«t :^e H * It 4c ★ s>t * J>t =i« S* # sJe ^!= :« sJt 3jc :*t sJc Jjt -jt ft « 3c 

★ 

» SECTION VIII: TRANSLATION 

4c 

4c 4c ft 34c ft ft ft ft ft ftftftftftftftftftftftftftftftftftftftftftftftftftft ftft ftftftftftftftftftftftftftft3cftftftftftftft 

INTEGER PROCEDGRE 3DTIDS; 

COMMENT LEFT PARENTHESIS ALREADT SEEN; 

BEGIN 

INTEGER T; 

SCANNER; 

IF TOK = '•) ” THEN NIL 
ELSE IF TCK = ** . ” THEN 
BEGIN SCANNER; 

IF TOK = '»('* THEN T := BGILDS 
ELSE T := HEADER; 

SCANNER; 

IP TOK --= ‘M'* ^HSN SYN err (7) ; 

END 

ELSE 

BEGIN 

IF (TYPE = IDENTIFIER) OR (TYPE = NGMS) THEN 
T * = H SADER 

ELSE I? TOK = '"' (" then T := BUILDS 
ELSE SYN ERR (7) ; 

CONS (T, BUILDS) 

END 

END BUILDS; 

INTEGER PROCEDURE TFUNC; 

COMMENT TRANSLATE AN M-EXPRESSIDN ^UNCTION 
INTO AN INTERNAL S-EYPRESS ION ; 

BEGIN 

INTEGER PROCEDURE LABEL 7UNC: 

COMMENT TRANSLATE A^LABEL FUNCTION; 

BEGIN 

INTEGER F?,?UNC; 

^CANN "'^R • 

IF t6k-= '*<" THEN SYN ERR (U) ; 

SCANNER; 

FF ;= HEADER; 

SCANNER; 

IF TOK --= THEN SYN ERR (4) ; 

SCANNER; 

FUNC := IFUNC; 

SCANNER; 

IF TOK -^= '»>•’ THEN SYN ERR (4) ; 

CONS3 (LABEL ,??, FUNC) 

END LABEL FUNC; 



INTEGER PROCEDURE LAMBDA FUNC; 

COMMENT TRANSLATE A LAMBDA FUNCTION; 
BEGIN 

INTEGER PROCEDURE 7A3LI5T; 

BEGIN INTEGER T; SCANNER; 

IF TOK = ”>'» THEN 
T NIL 

ELSE IF (TOK="<^) OR (TOK='»;'*) THEN 
BEGIN SCANNER; 

T := CONS (HEADER, VARLIST) ; 

END 

ELSE STN^SRR (10) ; 

END VARLI3T; 

INTEGER VLIST,FORM; 

SCANNER; 

I? TOK-=»<’» THEN SYN ERE (5) ; 

VLIST := 7ARLIST; 

SCANNER; 

IF TOK-.= '*;" THEN SYN ERR (5) ; 

FORM := TFOHM; 

SCANNER; 

IF TOK ">'* THEN SYN ERR (5) ; 

CONS 3 (LAMBDA, VLIST, FORM) 

END LAMBDA FUNC; 



INTEGER FN; 

IF TYPE = IDENTIFIER THEN ?N := HEADER 

ELSE I? TOK="E*» THEN ?N := LAMBDA FUNC 

ELSE I? TCK=»’B»» THEN PN := LABEL FUNC 

ELSE SYN ERR (6) ; 

FN 

END TFONC; 
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INTEGER PHOCSDURE TFORM; 

COMMENT TRANSLATE A FORM; 

BEGIN 

INTEGER PROCEDaRE ARG LIST; 

COMMENT CONSTRUCT“AN ARGUMENT LIST; 

BEGIN 

INTEGER T; 

SCANNER; 

I? TOK = '0'» THEN T := NIL 
ELSE IF (TOK OR (TOK= »» : 'M THEN 

T := CONS fTFORM, ARG LIoT 
ELSE SIN ERR (9) ; 

T 

END ARG^LIST; 

INTEGER PROCEDURE BUILD COND; 

COMMENT TRANSLATE CONDITIONAL M-EXPR233I0N INTO 
INTERNAL S-SXPRESSION ; 

BEGIN 

INTEGER PROCEDURE BUILD ? E PAIRLIST; 

COMMENT BUILD ?REDICATE=EX?RESS ION PAIR LIST; 
BEGIN 

INTEGER T2; 

INTEGER PROCEDURE ? E PAIR; 

COMMENT BUILD PREDICATE-EXPRESSION PAIR; 
BEGIN 

INTEGER ?,E; 

P := TFORM; 

SCANNER; 

IF TOK = THEN 

E := CONS (TFORM, NIL) 

ELSE SIN ERR (3) ; 

CONS (P, Ef 
END P^E^PAIR; 

I? TOK='»>" THEN T2:=NIL 

ELSE I? (TOK = '*<'*) OH (TOK = THEN 

BEGIN 

T2:=? S PAIR; SCANNER; 

T2: =CONE(T2, BUILD P E ?AIRLI5I> 

END 

ELSE STN ERR (3> ; 

T2 

END ?_E_?AIRLI3T; 

CONS (COND, BUILD ? S PAIRLIST) 

END BUILD^COND; 

COMMENT MAIN OF TFORM; 

SCANNER; 

I? (TIPE = CONSTANT) OH (TYPE^NUMS) THEN 
COMMENT FORM is A CONSTANT; 

CONS (QUOTE, CONS(HEADER, NIL)) 

ELSE IF TCK = ” (” THEN 

COMMENT FORM IS AN S- EXPR ES3I0N ; 

CONS (QUOTE, CONS (BUILDS, NIL) ) 

ELSE IF lTY?3=rOENT'IFIER) AND ( C-^=”<”) THEN 
COMMENT FORM IS A 7ARIA3LE; 

HEADER 

ELSE I? TOK = »»<** THEN 

COMMENT FORM IS A CONDITIONAL; 

BUILD^COND 

ELSE COMMENT FORM IS A FUNCTION<ARG LIST> OR A FUNCTIO 
(FUNCTIONAL ARGUMENT) ; 

BEGIN INTEGER T; 

T := TFUNC; 

I? C = THEN CONS (T, ARG LIST) 

ELSE CONS (QUOTE, CONS (T, NIL)) 

END 

END TFORM; 



INTEGER PROCEDURE TARGS ; 

COMMENT BUILD ARGUMENT LIST OF S- EX ?? ES S IONS ; 
BEGIN 

INTEGER T; 

SCANNER; 

IF TOK = '*>•’ THEN T := NIL 
ELSE I? (TOK =•'<’*) OR (TOK=*’:») THEN 
BEGIN SCANNER; 

I? (TYPE=IDENTIFTER) OR (TYPE=NUMS) THEN 
T := CONS (HEADER, TARGS) 

ELSE IF TOK = '* (*' THEN 

T := CO NS fBUILDS ,TARGS) 

ELSE SYN ERR (9) ; 

END; 

T 

END TARGS; 
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* i 

^ SECTION IX: INT25PHSTATI0N < 

4i i 

4c* ** 4e* * *********4t*********4t4car4E4i4c*****j 

INTEGEH PROCEDURE SyALQUOTS (INTEGER VALUE ?N, X); 

CO^ittENT EVALUATE THE FUNCTION AT '?N* APPLIED TO 
THE ARGUMENTS AT *X*; 

BEGIN 



INTEGER PROCEDURE COMPOS S (INT2G 2R VALUE X , I) ; 
COMMENT RETURN DATA ELEMENT AND ASSOCIATED 

G-VECTOR REPRESENTING FUNCTIONAL C0MP03ITI0 
CONS (CAR (X) .APPEND (Y.CDR (X) ) ) ; 

INTEGER PROCSDORE APPEND (INTEGER VALUE X . Y) ; 

COMMENT APPEND LIST Y TO LIST X; 

I? X - NIL THEN Y 
ELSE 

BEGIN INTEGEH T; 

T • = X * 

NHILE CDR(T) NIL DO 
T- : = CDR(T) ; 

SETCOR (T.Y) ; 

1 

END; 



N; 



INTEGER PROCEDURE APPLY (INTEGER VALUE 
COMMENT APPLY THE FUNCTION TO ITS 
GENERATE THE ASSOCIATION LIST; 
BEGIN 



?N, X, A) ; 
ARGUMENTS AND 



INTEGER PROCEDURE INCR G; 

I? ARIXH AND (?N OXMOL) THEN 
CDR (X) 

ELSE 

APPEND (CDR(X) , CONS (BUILD C ATOM(1) 



NIL) ) ; 



INTEGER PROCEDURE PAIRLIS (INTEGER VALUE X. Y. A 
COMMENT BUILD A LIST OF PAIRS OF CORRESPOND 
ELEMEjrrS OF LISTS X AND Y AND APPEND THIS N 
TO THE ASSOCIATION LIST; 

IF NUL(X) AND NUL (Y) THEN 

ELSE IF ATOM(X) OR ATOM (Y) THEN 
EXEC ERR 3, A) 

ELSE 



ING 

LIS 



CONS (CONS (CAR (X) .CAR (Y) ) . 

PAxRLIS (CDR (X) .CDR (Y) .A) 



) ; 



COMMENT MAIN OF APPLY; 

I? ATOM(CARfX)) THEN 
EXEC ERR (5, CAR fX) ) 

ELSE I? XTCM FN) THEN 
BEGIN 

IF EQ(FN.ICAR) THEN 
B^GIM 

IF ATOM (CAAR (X) ) THEN 
EXEC.2RR (4.CAAR (X) ) 



ELSE 

END 



CONS (CAAR (CAR (X) ) . INCR^G) 




INCHES) 

_ . . _ ^ f - L A r u .'^1 H 

BEGIN 

I? ATOM (CAAR (X) ) THEN CONS(T, INC? G) 
ELSE CONS(?. INCR G) 

END 

ELSE I? EQ(FN.IEQ) THEN 
BEGIN 

I? EQ (CAAR(X). CADAR(X)) THEN 
CONSfl. INCH G) 

ELSE CONS (?. INCR G) 



ELSE IF EQ^FN. lADD) THEN 

CONS (ADD (CAAR (X) .CADaR(X) ) , 
ELSE 17 EQ(FN, IMUI THEN 



ELSI 

END 



2Q (F^ 

ONS (MUL(CAAR (X) .CADAR (X) ) . 
APPLY (CAR (BVAL (?N .A) ) . X . A) 

HEN 



INC2_G) 

INCR_G) 



JLSS IF SQ (CAR (FN) .LAMBDA) 
BEGIN 

INTEGEH ?, TEMP 



■A.i.iX£iVJ£in C f J.M f 

? := PAIRLIS (CADH(FN) .CAR (X) .A) 
TSMP: = SVAL (CADDR (?N) . ?) ; 

FREE A LIST (?. A) ; 

COMPOSE (TEMP. CDR (X) ) 



END 

ELSE I? EQ (CAR (FN) . LABEL) THEN 
APPLY (CADDR (FN) .X. 

CONS (CONS (CADR (FN) .CADDR (FN) ) .A 



)) 
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3L3E EXEC SHH (1 ,?N) 

25JD AFFLYT 

INTEGER PROCEDaRS E-7A L (I NTEGER VALUE Z, A) ; 
COMMENT EVAL HANDLES FORilS ; 

BEGIN 



INTEGER PROCZDORE ASSOC (INTZC-EH VALUE X,A); 

CCNMSNT RETURN THE FIRST PAIR IN THE ASSOCIATION 
LIST WHOSE FIRST TERM IS X; 

IP NOL (A) THEN 
EXEC SRR(2,X) 

ELSE I? EQ (CAAR (A) THEN 
CAR (A) . 

ELSE 

ASSOC (X,CDR (A) ) ; 



INTEGER PROCEDURE SOHfINTEGER 
COHHSNT SUH CORRESPOND! NG 
BEGIN INTEGER ?; 

IF NUL(X) THEN T := T 
ELSE Ir NUL (Y) THEN T : = 
ELSE 



T 

END 



BEGIN 

T := CONS (ADD 
3UH 

FREE (CDAR (X) ) 
PRES CDAR Y) ) 
END ; 




SUM; 



VALUE X, Y) ; 
ELEMENTS OP X AND 



CAR 

CDR 

CAR 

CAR 



i); 



FREE (X) ; 
FREE If) ; 



INTEGER PROCEDURE COMBINE (INTS3 EH VALUE X,T) : 

C0HH2NT COMBINE EVAULUATED ARGUMENTS AND 
G-7ECTORS ; 

IF NUL(Y) THEN 

CONS (CONS (CAR (X) ,NIL) ,CDR (X) ) 

ELSE 

CONS (CONS (CAR (X) ,CAR(Y) ) , SUM (CDR (X) ,CDR (Y) ) ) 

INTEGER PROCEDURE E7L IS (INTEG ER VALUE M,A); 

COMilENT RETURN EVALUATED ARGUMENT LIST 
AND COMBINED G-7ECTOR; 

BEGIN 

IF NUL(M) THEN 
NIL 

ELS 

"combine (SVAL (CAR (M) , A) , EVLIS (CDR (M) , A) ) 

END S7LI3; 

INTEGER PROCEDURE EVCON (INTEGER VALUE C,A): 

COMMENT RETURN EVALUATED CONDITIONAL AND 
G-VSCTOR; 

BEGIN 

IP C = NIL THEN 
EXEC SHR(6,A) 

ELSE 

GRA?HCON(EVAL (CAAR (C) , A) ,C, A) 

END EVCON; 



INTEGER PROCEDURE G RA PHCON (INTEGER VALUE ?,C,A) ; 
COMMENT COMPOSE G-VECTOR FROM PREDICATE WITH 
G-VSCTOR FROM REMAINDER OF CONDITIONAL AND 
RETURN WITH VALUE OF CONDITIONAL; 

I? CAR(P) = T THEN 



COMPOSE (EVAL (CADAR (C 
ELSE I? CAR (?) = F THEN 



:) ,k) rCDH (P) ) 



COMPOSE (EVCON (CDR (C) , A) ,CDR (?) ) 
ELSE EXEC^SRR (7, CAAR (C) ) ; 

COMMENT MAIN OF EVAL; 

IF ATCM(E) THEN 

CONS (CDR (ASSOC (E, A) ), NIL) 

ELSE IF ATOM(CAR(E)) THEN 
BEGIN 

IP EQ (CAR (E), QUOTE) THEN 
CONS (CADR (E) , NIL) 

ELSE IF EQ(CAR(E) ,COND) THEN 
EVCON (CDR (^) , A) 

ELSE 

APPLY (CAR (E) , EVLIS (CDR (E) ,A) , A) 

T?LSZ 

END EVAL* < 37LIS (CDR (S) , A) , A) 

COMMENT MAIN OF E7ALQOOT2; 

APPLY (FN,CONS (X ,NIL) , NIL) 

END SVAL QUOTE; 
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* A 

* SECTION X; ERROR HANDLING 

* * 

4fH :* t** A :i^ 4: * ^ * ^7ti ^ in Hfi A ^ A * * ^ -^yx H AAaA . 



PROCEDORE ERSOHfINTHGEH VALDE K) ; 

COMMENT HANDLE PROGRAHXING ERRORS; 

BEGIN 
CASS K 0? 

BEGIN 

WHITS (’’ATTRI3CTE NOT ON PROPERTY LI 
WRITS (”?ROGRAH TOO LARGS TO EXECaTE 
"PRESENT MSNORY SPACE") ; 



LIST") 



3RITS (”aTTE3PT!:D“sr5aAGE"o?"'wLf.D 0? L3VGTH 
^ Nn • 

RECOVER; 

END; 



;ER0") 



PSOCSDOHE SEN EP.R (INTE 
COailENT HANDLE SYNT 
BEGIN 

STHING(30) EHR3D?; 
I? -LIST THEN WRITS 
SHRBuF := " "; 
ERRBUF (IBP M) : = "1 
WRITE (’* 13?;", S 

WRI'^E n^*^**** 'M • 
WRITEON ("SYNTAX SSH 
WRI'^EON (" J . 

WRITE (" ") ; 

CASE X OF 



GSR VALUE K) ; 
AX ERRORS; 



('* 



",BUF) ; 



RRSa?) ; 

CR FCaWD ON LINS^MO" ,LIN2_N0) 



SN3TH EXCEEDS 72 ; 

VALUE TOO LARGE"; ; 

CHARACTER") ; 

R LABEL CONSTRUCT") ; 

R Lk^.HDk EXPRESSION") ; 

ABLE 1-EXPRSS3I0N") ; 

RLY PARENTHESIZED EXPRESSION") 
CONDITIONAL EX? HES 3 JON") ; 
ARGUMENT LIST CONSTRUCTION") ; 
variable LIST") ; 



(INTEGER VALUE X , Y) ; 
ERRORS ; 



BEGIN 

WHITS ("TOKEN L 
WRITE ("INTEGER 
WRITS ("ILLEGAL 
WHITE ("lEPROPE 
WRITE ("I HP HO PE 
WRITS ("UNDECOD 
WRITE "IHPHOPE 
WRITE ("INVALID 
WHITE ("INVALID 
WHITE ^'INVALID 
END; 

RECOVER 
END SYN^ERR; 

INTEGER PROCEEORE EXEC ERR 
COMMENT HANDLE SEMANTIC 
BEGIN 
CASS X OF 
BEGIN 

WRITS ("ERROR- IMPH 
write ("ERROR- UNDEF 
WRITE "SRKCH- VARIA 
"ARGUMENT LIS 
WRITS ("ERROR- ATT EM 
WRITE ("ERROR- ARGUM 
"ARGUMENT LIS 
WHITS ("ERROR- UNDER 
"LATEST A-LIS 
WRITS ("PREDICATE DO 
" PREDICATE 

END; 

OUTPUT (Y) ; 

RECOVER; 

X 

END EXSC.HBP; 

PROCEDURE RECOVER- 

COMMENT RECOVER FROM FATAL ERRORS; 

BEGIN 

I? INTRANS THEN 

BEGIN INTPIELDSIZS := 4; 

WHILE BUF (U-1 1) -= DO 

BEGIN 

READCAHD (3UF); INTFI ELDS I Z E: = 4 ; 
LINE NO := LINE NO+1; I3P:=0; 

IF LIST THEN 

WRITE (LINE NO," ",3UF); 

END; 

INTFIZLDSIZE ;= 14; 

END; 

GO 70 FINIS; 

END R ECO TER; 



[olr:") ; 



RLY DEFINED FUNCTION:' 

Ei> VARIABLE OR FUNCTI 
E LIST DOES NOT MATCH 
LATEST A-LIST IS:") ; 

ED CAR 0? ATOM, ") ; 

T LIST CANNOT BE AN ATOM. ", 
IS:") ; 

ED CONDITIONAL. ", 

IS : ") ; 

NOT GIVE TRUTH VALUE.", 

:") ; 
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* '* * * 

^ SECTION XI; OOTPUT ♦ 

* * 
*St*#:i*4t<t** ★ j*l^* :^t4t ★ :»c * :«t ;«c :«c ^ ★ :»(:^as4«<t^3ie*:0t:<ncq*«e»3jr**»c;«i**^3<«*<t:«s:«i*:*t<t . 



FROCEDORE OOTPtJT (INTEGER 7.\L'JS X) ; 

COMMENT PRINT LIST ROOTED AT X; 

BEGIN 

STRING(72) OaTSa?; 

INTEGER 05P; 

PROCEDURE DUMP: 

COMMENT PRINT OUTPUT BUFFER; 

BEGIN 

WRITE (OUT3U?) ; SKI?(1) ; 

OBP := 0: OUTBUr := " '* 

END DUMP; 

PROCEDURE BUMF OBP; 

COMMENT MANAGES OUTPUT BUFFER SICE; 

BEGIN 

C3P := 03P+ 1 ; 

IF OBP >= 72 THEN DUMP; 

END BUMP^OBP; 

PROCEDURE PRINT ATOM (INTEGER VALUE X); 

COMMENT ?UT”ATOM INTO OUTPUT BOFrSR; 

BEGIN 

STRING<72) 3UFF; 

INTEGER LENGTH; 

LOGICAL PROCEDURE NUM ATOM (INTEGER VALUE X); 

COMMENT DETERMINE”!? AN ATOM HEADER CELL 
POINTS TO A NUMBER: 

BITSTRING (CAR (X) ) = =?0000?FFE; 

PROCEDURE DUMP NUM (INTEGER VALUE N) ; 

COMMENT DOM? NUMBER TO OUTBUF; 

BEGIN LENGTH := LENGTH ^ 1; 

IF (LENGTH + CB?) > 72 THEN DUMP; 

I? N > 9 THEN DUMP NUM(N 017 10); 

OUTBUF (03PI 1) := CODE((N REM 10) + 240); 

BUMP 05P; 

END DUM?_NDM; 

I? NUM ATOM (X) THEN 

BEGIN LENGTH := 0; 

DUMP NUM (NUMBER (M (CDR (X) ))) ; 

END ” 

ELSE 

BEGIN 

GET PNAME (X, BUFF, LENGTH) ; 

IF LENGTH > IVI-'OB?) THEN DUMP; 

FOR I:=0 ONTxL LENGTH-1 DO 
BEGIN 

OUT30F(03P1 1) ;= 3UFF(I|1); 

BUMP OBP; 

END 

END; 

END PRINT^ATOM; 

PROCEDURE WRITE S (INTEGER VALUE X); 

COMMENT WRITS S-EXPRSSSION AT X ONTO OUTPUT BUFFER; 
BEGIN 

I? ATOM (X) THEN 
PRINT ATOM(X) 

ELSE 

BEGIN 

OUTBUF (OBPI 1) ;= ’*(’*; aOMP_03P; 

WRITE 3 (CAR (X) ) ; 

X := CDR (X) : 

WHILE X NIL DO 

IF ATOM(X) THEN 
BEGIN 

OUTBUF (OBPI 1) := BUMP OBP; 

PRINT ATOM(X); X:=NIL 

END ” ^ 

ELSE ^ 

BEGIN 

BUMP OBP; COMMENT OUTPUT A BLANK; 
write S(CAR{X)); X: =CDR (X) 

END; 

OUTBUF (OBPj 1) := '*)”; BUMP^OBP; 

END ; ” 

END WRITERS; 



OBP 1 ^ 0 ; 
OUTBUF := '* ; 

WRITE 5 (X) ; 
DUMP;” 

END OUTPUT; 
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EX2C0TI0 

008. 33 S 



PROCEDURE SKIP(INTEGER VALUE X) ; 

COrtMEMT SKIP X UO.'IBER OF LINES; 

FOR I: = 1 UNTIL X DO WRITER” ") ; 

^ 

SECTION X: .'lONITOR ^ 

PROCEDURE 3ONIT0H; 

COMMENT INVOKE TRANSLATION ROUTINES. OUTPUT TRANSL 
I? TRANS IS TRUE, INVOKE INTERPRETER ROUTINES 
OUTPUT RESULTS; 

BEGIN 

IN'^SGSR ^N AHGS VAL* 

INTEGER ^aJcvIDTH'. MAlf^ATHLENGTH, NODES03; 

REAL SPEEDUPRATIO; 

PROCEDURE GSTSTATS (INTEGER VALUE VECTOR) ; 

BEGIN 

MAXWIDTH := 0; 3 AX? ATHLENGTH ;= 0; 

NODESOM ;= 0; 

WHILE -.NUL(VECTOH) DO 

BEGIN INTEGER WIDTH; 

WIDTH := NUNSER (H (CDAR (VECTOR) )) ; 

NODESOa := NODESUM WIDTH; 

IF WIDTH > MAXWIDTH THEN 
MAXWIDTH := WIDTH; 

MAXPATHLENGTII := M AX? ATHL IN GT H + 1; 

VECTOR := CDR(73CTOR); 

END; 

i= NODESUa / MAXPATHLENGTH; 



SPEEDUPRATIO : 
2ND GSTSTATS; 



INTHAN3 := TRUE; 

SCANNER; 

FN := TFONC; 

ARGS := TARGS: 

INTRANS := FALSE; 

IF TRANS THEN 
BEGIN 
SKIP (2) ; 

WRITE TRANSLATION FOLLOWS ******^^) ; 

SKIP (1^ ; 

OUTPUT (FN) ; 

OUTPUT (ARGS) ; 

END; 

SKIP (2): 

WRITE (”**=^**^ EVALUATION BEGINS *^^:»**»*); 

VAL := SVALQUOTE (FN, ARGS); 

SKIPM): 

WRITE (‘'RESULT IS:") ; 

OUTPUT (VAL) ; 

SKIP < 2 ) ; 

GETSt ATS JCDR (VAL) ) : 

WRITE ("PROCESSORS REQUIRED FOR OPTIHOa ? AHALLEL ING . " , 
aAXWIDTH) ' 

WRITE ("EXECUTION* STEPS (PARALLEL) ", 

aAXPATHLSNGTH) : 

WRITE ("EXECUTION STEPS (SEQUENTIAL) ", 

NODESUa) ; 

WRITE ("SPEED-UP RATIO (3 EQUSNTI AL/P AxRALLSL) ", 

SPEEDUPRATIO) ; 

END aONITOR; 



coaasNT^* ****** *^ ******************** *** 

* * 

* aAIN PROGRAM * 

* * 

7 ^** *:i[m ********************************* • 

INITIALIZE; -CNITCR; 

FINIS : 

WRITS ("FREE STORAGE REaAINING ?REE_CSLLS) ; 

END. 

N OPTIONS: DEBUG, 1 TIME=10 SECONDS ?AGES=20 MAEGIN=72 
ECONDS IN COaPILATION, (40748, 07323) BITES OF CODE GENERATED 
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